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Foreword 


The advent of a computer which combines plenty of memory, good BASIC, and a reasonable 
price is important. The purpose of this book is to introduce the complete beginner to the world 
of computers; here in the form of the ORIC 1. I have tried, as far as possible, to lay the book 
out in a straightforward manner so that you, the reader, can start at the beginning and work 
through, learning as you go. 

There are a number of people I would like to thank for their help and support. In particular, 
Judith Pattern Ltd., public relations consultants to ORIC Products International Ltd., for helping 
me obtain a machine; my publisher Ellis Horwood for all his essential support and Mike Horwood 
for his patience. Particular thanks must go to Brian Meek for his helpful comments on the manu- 
script, and to the dynamic Antonia Jones for her comments and suggestions both while I was 
working on the manuscript and after it was finished. 

Last, but most certainly not least, especial thanks go to Mary Considine for her infinite 


patience and understanding. 
D.GJ.C. 
Reading 1983 
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12 INTRODUCTION 


This book is about programming the ORIC 1 microcomputer, and assumes that you, the reader, 
have not had any previous experience of programming computers. 

It would be useful, though not essential if you look through the ‘ORIC 1 BASIC Programming 
Manual’ which comes with the machine before starting working with this book seriously. This will 
show you how to connect the ORIC to an ordinary TV set to give a display, and to a cassette 
recorder so that programs can be stored for future use. You should also have the computer working 
in front of you so that you can try out new points as they are introduced. 

In order to use the ORIC we need to be able to communicate with it. We must be able to give 
it commands which it can understand and it must be able to give us replies which we can under- 
stand. To communicate with the ORIC we need to learn its language — BASIC. To communicate 
with us the computer uses the TV screen. 

The great advantage which modern microcomputers have over their predecessors is their 
ability to respond to commands immediately without having to have a program of your own 
RUNning. All computers need information to make them operate. This information comes in the 
form of a ‘program’. This is simply a series of instructions, numbered so that the machine knows 
the order in which to perform them. You can probably gather from this that computers are, on 
the whole, pretty dumb! their intelligence comes from the programmer. 

First let’s look more closely at how we talk to the ORIC. 

The language the ORIC speaks is called BASIC. This stands for ‘Beginners’ All purpose Sym- 
bolic Instruction Code,’ and is a language which was developed in the 1960s to help people learn 
to use computers easily. Although BASIC is not particularly like English, it comes about halfway 
between the language we would ideally like to use to talk to the ORIC and the language which the 
ORIC would ideally like us to use. 

A major advantage which modern microcomputers have over their predecessors is that they 
can be used a bit like a calculator to produce simple results directly. This is how we will start in 
our guide to programming the ORIC. First we need to learn some of the commands, or words, 
in its vocabulary. 


The PRINT command 

The first command is used to display messages or information on the screen. It can therefore be 
used in one, or both, of two ways — either to display a message or to display information. First 
we'll see how to use it to display messages. To do this we type PRINT, followed by the message 
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we want to be PRINTed inside a pair of quote marks. This must now be ‘entered’ into the ORIC 
by using the Return key on the keyboard. This is very important because the machine will not 
respond until the (Return) key has been used. This key says: ‘The command’s finished . . . over to 
you’. 

Let’s try our first command. 


PRINT“HELLO” (Return) 


This will display the message ‘HELLO’ on the screen. 

To change the message, simply put a new one inside the quotes, but don’t forget to finish 
with (Return). Each message will be PRINTed on a new line starting at the left-hand side of the 
screen. When the whole screen is filled up the ORIC will scroll the screen so that the message on 
the top line is lost and all the others are moved up one line. Any new messages will now always 
be PRINTed on the bottom line after the screen has scrolled. 

Having seen how to fill the screen up with messages, the next thing for us to look at is how to 
clear it. The ORIC has another command for doing this: the CLear Screen, CLS, command. 

Type CLS (Return), and the screen will be cleared, ready for more messages! 


Useful tip: The PRINT command can be entered by entering “?’ in its place. The ORIC regards 
? as PRINT when not enclosed in quotes. Try entering 


“HELLO” (Return) 


PAPER and INK 


The next commands for us to see are concerned with the colours the ORIC uses for its display. 
These are the PAPER and INK commands. As you can probably guess, the PAPER command 
controls the colour of the screen itself and INK the colour of the writing on it. the actual colour 
produced depends on the number given after the command itself. These numbers are; 


0 — Black 4 — Blue 
1 — Red 5 — Magenta 
2 — Green 6 — Cyan 


3 — Yellow 7 — White 
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If you enter a number other than these, the machine will complain by giving the message 
“? ILLEGAL QUANTITY ERROR”. This means that the ORIC cannot understand the command 
given to it: specifically it doesn’t know a colour which corresponds to the new number it has been 
given. There are a number of ‘error messages’ which the machine gives when it doesn’t know what 
to do with the command given to it. The most common is probably ‘““? SYNTAX ERROR’”’. The 
usual cause of this is bad typing. Just try entering the command again with the correct spelling. 
The ORIC can be very patient when it needs to be. 


These colour ‘codes’ are the same for both background, PAPER, colour and foreground, 
INK, colour. Remember though that if both the PAPER and INK colours are the same, you 
won’t be able to see any writing on the screen! 

Try entering some PAPER and INK commands to see what happens. 


PAPER 3 (Return) 
INK 5 (Return) 


will give magenta writing on a yellow background and 


INK 0 (Return) 
PAPER 4 (Return) 


will give black writing on a blue background. 


Direct sound commands 


The ORIC has some fairly extensive sound facilities. Some of these can be used Directly, in the 
same way as we’ve already seen for the PAPER and INK colour commands. There are four com- 
mands in the ORIC’s vocabulary available for producing sounds. These are ZAP, PING, SHOOT 
and EXPLODE. Try them 


ZAP (Return) 

PING (Return) 
SHOOT (Return) 
EXPLODE (Return) 
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Using the ORIC as a calculator 


Using the Direct facility we can use the ORIC as a calculator, although it would be a fairly sophi- 
sticated and expensive one! To do this we need to use the arithmetic symbols for addition, sub- 
traction, multiplication and division, which are ‘+’, ‘—’ ‘*’ and ‘/’. 

The ‘—’ and ‘/’ signs are easy to find and can be used at once. The others are obtained by 
using the SHIFT key. Hold the SHIFT key down while at the same time pressing the key for 
either ‘*’ or ‘+’. The keystroke for ‘*’ is (SHIFT 8) and ‘+’ is (SHIFT =). 

How do we add one and one? The answer is quite easy: ask the machine to PRINT 1+1. Enter 


PRINT 1+1 (Return) 


and the answer 2 will be displayed on the screen. Notice that we do not use quote marks here. 
They are used to tell the ORIC that we wish to have a message PRINTed and that the message is 
inside the quote marks. This time we want the machine to do some calculations before giving its 
reply. We can include a message with the calculation by entering, for example 
Print ““1+1= ;1+1 (Return) 

An important point to note here is the different ways that the PRINT statement can be used. 
In this example it is being used in both the possible ways. Firstly, it is PRINTing the message 
inside the quote marks, and secondly, the result of the calculation which is outside them. The 
ORIC will regard anything inside quotes as a message and anything not as a number. Let’s look at a 
couple more arithmetic examples. 


PRINT 2 / 4 (Return) 


This will give the result 0.5. 
Note that because there are no quotes there will be no message PRINTed. 


PRINT “4 * 2= ” ; 4*2 (Return) 


Will give both the message and the result as with the first example in this section. 
The ‘;’ makes the machine PRINT the result of the calculation on the same line as the message. 


Variables and their use 


We saw above how the PRINT command will regard anything inside quotes as a message and 
anything not inside quotes as a number. Suppose you enter the line 
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PRINT A (Return) 


The ORIC will reply with the answer 0. If you enter the lines 


A= 1+1 (Return) 
PRINT A (Return) 


the result of the calculation will be PRINTed. What is happening here? 

The result of the calculation is being stored in a variable. Variables can be thought of as 
being named boxes which contain numbers. In this case the variable ‘A’ contains the result of 
the calculation which is 2. If a different calculation had been done ‘A’ would have been given a 
different value. 

Variable names can be made up of any combination of letters and numbers, but the name 
must start with a letter. Although the ORIC will accept a number of characters as a variable name, 
it looks at only the first two when asked to use the value which the variable contains. Therefore 
STORE! would be the same as STORE? as far as the ORIC is concerned. S1 and S2 would be OK 
though. 

We saw how to assign the result of a calculation to a variable above. If we want to store a 
given number in a variable we use the line; 


A=10 


this will store the number 10 in the variable ‘A’. 

A variable can contain one of three types of data: real, integer or string. The form of variable 
takes the name of the type of data which it contains. 

A Real variable is one which contains a real number. That is one which has a whole number 
part together with a fractional part. Examples of real numbers are 3.14, 76.9 and 1000.2. 

An integer variable is one which contains an integer number. An integer number is one which 
is a whole number. It does not have any decimal places. Examples of integer numbers are 2, 567, 
1000. Integer variables are distinguished by means of a ‘%’ sign after their names. The largest 
positive integer number allowed by means of the ORIC is 32767, and the largest negative, —32768. 

Note that although 3 is an integer number, 3.0 is a real one. 

A STRING variable is one which contains a character string. Examples of character strings are 
ORIC, JOHN and RABBIT. String variables are distinguished by means of a ‘$’ sign after their 
names. A string must not contain more than 255 characters. 
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Real variables are, therefore, assumed unless you tell the ORIC otherwise. Real variables 
can contain an integer number (by including Os as decimal places), but cannot contain strings. 

If you ask the computer to PRINT the value of an unassigned variable it will respond with 
the answer zero. All unassigned variables are assumed to be zero. 


Programs 


In the example we have just seen we did a calculation and then PRINTed the result. This operation 
consisted of two parts. First the calculation was performed, and the result stored in variable; 
then the content of this variable was PRINTed on the screen. This is our first computer program. 
Before we look at this in more detail, let’s see what a computer program is. 

We saw, and carried out, in the example above that two operations needed to be performed. 
These operations also needed to be carried out in a specific order. First the calculation had to be 
done, and then the result PRINTed. An ORIC program is simply a series of commands which need 
to be carried out, and carried out in a specific order. What the program does is to tell the computer 
what the commands are, together with the order in which they must be carried out. This is achieved 
by prefixing each operation with a number. By taking commands in increasing number, the ORIC 
can perform them in the required order. One number and its associated command, or commands, 
is called a program /ine. More than one BASIC command is allowed on a single line, provided these 
commands are separated by colons; for example: 


100 PRINT A:PRINT B 


When RUNning a program, the ORIC will find the line which has been given the lowest number, 
perform this, then look for the command with the next lowest number, perform this, and so on 
until it runs out of commands to perform. 

The actual line numbers chosen do not matter as long as the lines are numbered in the order 
in which they are to be carried out. It also does not matter what order the lines are entered into 
the machine in, as it looks at the line numbers given and sorts the program into the right order as 
the lines are entered. Normally lines are numbered in steps of ten so that extra commands can be 
added at a later stage should any be missed out to start with. 


Entering the program lines 


Program lines are entered into the machine in the same way as we have seen already except that a 
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line number is included at the beginning of each line. In the case of the example given above, this 
would be; 


10 A= 1+1 (Return) 
20 print A (Return) 


Try typing these lines in. 

Notice that now there is no reply from the computer as each of the lines is entered. When a 
line number is added the ORIC knows that this line is part of a program, so the user does not want 
the command to be carried out immediately. This is the editing mode. Before we were using the 
direct mode. 

Direct mode is when we enter commands without line numbers so that we get the result 
directly. The editing mode puts commands into programs since the lines now start with line 
numbers. You can still use the direct mode while you type program lines in without affecting 
the program being typed. For example if the program lines below are being entered and you want 
to do a quick calculation between two lines, but do not want it as part of the program, you can 
enter the Direct mode line: 


10 A= 10 
20B=15 
PRINT 378/267 
30 C = (AtB)/A 
40 PRINT C 


The program will be entered correctly and you will get the answer to your calculation. 

Now we have our program in the computer we shall want to make it work so that we can see 
the results. This is known as RUNning the program; to do this we use the direct command: RUN. 
This causes the computer to go through the program currently in memory and perform the com- 
mands in an order set by their line numbers. Try this with our program above. Type 


RUN (Return) 


The answer 2 will be PRINTed on the screen. 
A simple modification to this short program could be to clear the screen before giving the 
answer to the calculation. The program would now become. 
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5 CLS 

10 A=1+1 

20 PRINT A 

30 END 

Type RUN (Return) 


The command END in line 30 tells the ORIC that this is the END of the program, so it must 
return to Direct mode until told to RUN again. 


The LIST command 


We’ve now RUN our first proper computer program, but we have a problem. Because we have 
cleared the screen we cannot see the program any more. 

Along with RUN, BASIC has another command: LIST. This command displays the entire 
program on the screen in order of increasing line number. There are a couple of variations possible 
with the LIST command which allow us to examine specific lines. 


— LIST 50 will cause just line 50 to be displayed on the screen. 

— LIST 50—100 will cause all the lines with numbers between 50 and 100 inclusive to be 
displayed. 

— LIST 50— will cause the program to be LISTed from line 50 onwards. 

— LIST —100 will LIST all program lines up to, and including, line 100. 


We can now check our program and add extra commands if we wish. 


Removing programs 


When we are finished with a program we shall want to clear it from the computer’s memory so 
that another program can be entered. To do this BASIC has the command NEW. It should, though, 
be used with care. Once this command has been entered using the (Return) key there is no way to 
get a program back! 


In the next chapter we'll start looking at more things about BASIC and programming with it. 
We’ll also look at something about the ORIC in general, together with some more Direct mode 
commands which can create sound and turn the keyboard ‘click’ off and on. 


Talking to BASIC 
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In this chapter we are going to look at some BASIC programs. So far we have seen how to make 
the ORIC do some simple operations. Although this can be useful, as we shall see later, it is not 
what the computer is primarily intended for. As we saw in the last chapter, we want to be able 
to give the machine a series of instructions to perform in a specific order. In the last section we 
will see how to write a simple dice-throwing game program. We will also see how the CTRL key 
can be used to obtain some ORIC system changes. 

First we shall consider a BASIC statement that will be used in this example: the INPUT 
statement. The purpose of the INPUT statement is to allow the user of the program to assign 
data to a specified variable. This statement can assign real, integer or string data to the variable 
specified. The ORIC will also check that the correct type of data is being INPUT, and give an error 
message if this data is incorrect. In the example here we will be INPUTting data to a string variable, 
so we must have a string variable, denoted by a ‘$’ sign, ready after the INPUT statement. 

The program example will ask you your name, and then PRINT it on the screen together 
with a greeting message. Type the program in as given below. When it is all in, make the ORIC 
display it all by entering the command LIST. Check each line for typing errors carefully. If a line 
is not correct simply re-enter the offending line and the ORIC will use this new line in place of the 
old, incorrect one. When everything is correct, enter RUN and watch what happens. 

Now the program 


10 CLS 

20 PRINT “ MY NAME JIS ORIC” 

30 PRINT “ WHAT IS YOURS”; 

40 INPUT A$ 

50 PRINT “ HELLO “A$” PLEASED TO MEET YOU.” 
60 END 


The program will start by clearing the screen and displaying the message 


MY NAME IS ORIC 
WHAT IS YOURS? 


The ORIC has now reached the INPUT statement in line 40 and is waiting for you to enter 
data from the keyboard. It will keep waiting until a string of characters has been entered from the 
keyboard finishing with RETURN. 
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Enter your name and watch what happens. In my case it will be; 
HELLO DAVE PLEASED TO MEET YOU 


There are several useful points to mention from this short program. The semicolon at the end 
of line 30 is included to stop the machine moving down to the next line after it has finished 
PRINTing the message “WHAT IS YOURS”. Try taking the semicolon out and RUNning the pro- 
gram again. Try this before reading on. 

Where does the question mark come from? Removing the semicolon at the end of line 30 
might have given you a clue. It is produced by the INPUT statement and is used to tell the user 
that the ORIC is expecting data to be entered from the keyboard. This is the reason for the 
semicolon at the end of line 30, and for the lack of a question mark at the end of the ORIC’s 
question. 

An important point to note is that the ORIC is very persistent, and won’t continue until it 
has been given something. Just pressing RETURN will not do! 

Before we go on to look at some other BASIC commands, there are some other points that 
need mentioning. First, we shall look at ways to put typing mistakes right, and then at the use of 
the CTRL key. 


Putting typing mistakes right 


If you find any typing errors when you LIST a program there are two ways to put them right. We 
saw the first with the example above. This is to simply retype the whole line in again using the 
same line number, but this time without the error. The machine will replace the old line with the 
new one. Any errors made while typing the line, that is before it has been entered with the RETURN 
key, can be corrected by means of the DEL key. This key will take the cursor back along the 
current line, removing the charactors covered by the cursor as it goes. Corrections can be made by 
taking the cursor back along the line to the mistake, correcting it, and then retyping the rest of 
the line; for example: 


20 PRINT “WHIT IS” 


can be corrected by using the DEL key to take the cursor back so that it is over the offending 
‘T’, replacing it with an ‘A’ and retyping the rest of the line. 
The second method for correcting errors in lines involves the use of the cursor direction keys. 
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These can be found either side of the space bar. We will also be using the CTRL key. The proce- 
dure is as follows. 

First clear the screen and LIST the line to be corrected using the LIST (line number) com- 
mand. Then move the cursor to the start of the line using the cursor up key on the right of the 
space bar. This key is marked ‘t’. Now press the CTRL key down together with the ‘A’ key. This 
will move the cursor along the line entering the characters it covers as it goes as if they had been 
typed from the keyboard. When you reach the character, or characters, to be changed, type in the 
corrections and enter the rest of the line by means of CTRL-A. Finally, enter the whole line 
using RETURN. For example, to change the message given in the example above from “PLEASED 
TO MEET YOU” to “PLEASED TO SEE YOU”, the procedure would be as follows. 

Clear the screen using CLS in Direct mode and enter LIST 50. Line 50 will now be displayed. 
The display will be: 


Ready 
LIST 50 


50 PRINT“ HELLO “A$” PLEASED TO MEET YOU” 
Now move the cursor up to the beginning of this line so that it sits just to the left of the 5 of 50. 
50 PRINT“ | HELLO “A$” PLEASED TO MEET YOU.” 


Now, hold down both the CTRL key and the ‘A’ key and the cursor will move to the right. If you 
hold both of these keys down, the cursor will continue to move, and the keyboard click repeatedly 
for as long as you keep them pressed. This is known as the auto-repeat facility. When the cursor is 
over the ‘M’ of ‘MEET’ simply type ‘SEE’ instead. Because ‘SEE’ is shorter than ‘MEET’ we want 
to remove the final ‘T’. To do this move the cursor over this ‘T’ using the cursor right key and 
enter the rest of the line by means of CTRL-A. Remember, characters ‘CTRL-A’d will remain as if 
they had been typed from the keyboard and character ‘cursor-right’ed will be skipped. The display 
will now be: 


50 PRINT“ HELLO “A$” PLEASED TO SEEt YOU.” 


The character ‘T’ will still be present, but has not been CTRL-A’d. 
If the new line is longer than the old one, the procedure is the same, but the portion from the 
extra characters to the end of the line will have to be entered again. 
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Use of the CTRL key 


We saw above that, when used with the CTRL key, the ‘A’ key can have a different use. In this 
section we will look at which other keys have different uses, and what those uses are. For easy 
reference this section is laid out like a table. 

All of these commands are immediate and do not need the RETURN key to enter them. 
Using CTRL along with another key tells the ORIC... do it now! 


CTRL-A This combination is used when editing program lines to enter characters already ina 
line without having to retype them from the keyboard. 
ASCCII Code: CHR$(1). 
CTRL-C This command is a way of stopping programs which are out of control, for example, 
a loop which has no way out of it. CTRL-C will stop the program at the line being 
RUN when typed. All variables are kept and the program can be restarted from 
where it was stopped using the Direct mode command CONT. CTRL will not 
stop the program which is stuck in a loop containing a GET statement. 
ASCII Code: CHR§(3). 


A short note should be included here about the RESET button underneath the ORIC. This 
can be used to stop a program if CTRL-C does not work. If the RESET button is pressed, you’ll 
need a pencil to reach it with, the computer will stop RUNning any program, clear the screen 
and display the message ““Ready”’. The program stopped will not be lost, but it cannot be restarted 
using CONT. All variables will be set to zero. 


CTRL-D This switches between normal height characters and double height characters. Its 
first use sets double height and its second normal again. Therefore it acts like a 
toggle switch. 

ASCII Code: CHR$(4). 
CTRL-F CTRL-F is a toggle for the keyword click. On the first press the sound is turned off, 
and on again on the second. 
ASCII Code: CHR$(6). 
CTRL-G This produces the pre-programmed sound ‘PING’. 
ASCII Code: CHR$(7). 
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CTRL-J When this command is given, the ORIC misses a screen line when PRINTing. It is a 

line-feed character and has the same effect as the cursor down key. 
ASCII Code: CHR$(10). 

CTRL-L This has the same effect as the CLS command, and will clear the screen in exactly 

the same way. 
ASCII Code: CHR$(12). 

CTRL-M CTRL-M has the same effect as pressing the RETURN key. It can be used to enter 

lines, but is more awkward. 
ASCII Code: CHR$(13). 

CTRL-N This combination will clear the line the cursor is on and remove it from the pro- 

gram currently in memory. 
ASCII Code: CHR$(14). 

CTRL-Q This will toggle the flashing cursor. First press will remove the cursor from the 

screen and the second bring it back. This can be useful inside programs. 
ASCII Code: CHR$(17). 

CTRL-S_ This stops the output of a program from going to the screen. It is available for 

future use. Again, it is a toggle switch. 
ASCII Code: CHR$(19). 

CTRL-T CTRL-T is used as a toggle between upper-and lower-case characters. The ORIC 
is set to upper-case when it is first turned on. Pressing CTRL-T sets it to lower-case 
for all following characters until it is toggled again. When in upper-case the message 
‘CAPS’ is displayed in the top right corner of the screen. All BASIC commands 
must be in upper-case. The two types of character can be mixed in a PRINT state- 
ment as shown below. 


PRINT “E (CTRL-T) xample of mixing (CTRL-T) U (CTRL-T) pper and 
lower case characters” (CTRL-T) 
This will PRINT the message: 
Example of mixing upper and lower case characters on the screen. 
ASCII Code: CHR$(20). 
CTRL-I This will remove the protected left-hand column. All lines will start at the far left 


of the screen and not jump to column 4. This is a toggle switch. 
ASCII Code: CHR$(29). 
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The ASCII codes, CHR§$(n), value has been included for completeness and to make the table use- 
ful later. The values can be used in programs, using PRINT CHR§(n), to produce the same effect as 
if the command had been typed in from the keyboard. 


More on BASIC 


Now we shall look at some other BASIC commands that can be useful, and write a short game 
program. 

The first command that we shall look at is the RND(N) or random command. This produces 
a random number. The random number produced depends, to some extent, on the value of N 
inside the brackets. If N is positive, a random number greater than zero, but less than one, will be 
produced. If N is negative, a random number in the range zero to one will again be produced, but 
this time the same number will be produced for the same value of N. If N is zero, the most recen- 
tly produced random number will be given again, for example: 


RND(1) _ will give a random number greater than zero, but less than one. 

RND(—3) will give a number in the range zero to one, but the same number will be given each 
time RND(—3) is used. 

RND(O) _ will give the last random number produced. 


Using this command we shall first look at a way of simulating dice on the ORIC, and then build 
this into a dice-throwing game between yourself and the computer. 


Simulating Dice 

We shall now use the RND(N) statement to simulate a die. To do this we want continuous random 
numbers, so we need the form of the statement with N positive. This will give us a number greater 
than zero, but less than one. A die produces a number between one and six, so we need to multi- 
ply the random number produced by six. Obviously, a die only gives integers, or whole numbers 
when thrown. This is the next problem; we must have some way to Jose the fractional part of the 
random number given by the ORIC. Fortunately, BASIC has a function to do this in the form of 
the INT(X), or INTeger, function. INT will give the smallest INTeger number to the one given 
inside the brackets. Therefore 


INT(3.14159) becomes 3 
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and 


INT(—3.14159) becomes —4 


so, to produce the number thrown by our simulated die we need the line: 
THROW = INT(RND(1)*6)+1 


where THROW is the number thrown. One needs to be added because the integer number pro- 
duced will be between 0 and 5. A die throw must be between 1 and 6. 
The program will be: 


10 CLS 

20 THROW = INT(RND(1)*6)+1 
30 PRINT THROW 

40 WAIT 100 

50 GOTO 10 


The wait statement in line 40 is there to give the user time to read the score thrown. The 
WAIT statement makes the ORIC WAIT for a length of time which is set by the number after the 
command. The unit of time used is 10 milliseconds. Therefore, WAIT 100 will make the ORIC 
WAIT for one second. We shall see an important use of the WAIT statement in the Sound chapter. 

To stop this program, which is an endless loop, type CTRL-C. 

The final line, GOTO 10, tells the ORIC to continue RUNning from program line 10. In this 
case the program will keep going round and round. 

Here we can see a form of programming which is very powerful: the LOOP form. It allows 
us to perform the same operation many times while using only a small number of lines. Here 
the form is very crude as we have no way to tell the ORIC how many times we want it to throw 
the die. We shall be looking at loops in more detail in Chapter 4. 


Now we are in a position to look at a slightly more complicated game using the die-throwing 
program, or routine, developed above. The game will let you throw two dice, record the score, 
and then let the ORIC throw two dice and record its score. The winner, the one with the higher 
score will be recorded, and a running total kept. The program has the same loop structure as 
before, but will include a decision to let the player leave the program if he wishes. For reasons 
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which will become apparent in the chapter on loops, careless use of the GOTO statement is not 
recommended. This program is repeated there to show how much simpler the use of a proper loop 
structure can be in terms of both understanding a program which has already been written and 
writing it in the first place. Now, the game. 


Game of Dice 


Before we start looking at how to write this game in BASIC we will go through the game’s re- 
quirements and break the game down into its component parts. This will be done by means of a 
flowchart. A flowchart is a way to represent the way in which a program will proceed. The ‘flow’ 
of the program is along the lines in the direction shown by arrows on the lines. This flow is usually 
from top to bottom. Where a line meets a box, the program must perform the operation written in 
that box. If a decision must be made, shown by a diamond-shaped box, there will be two possible 
paths to take, for example, in this case — who threw the higher score? The path taken will be 
decided by the result of the decision. 

We shall see more flowcharts as we go along. They can be very helpful by allowing you to 
follow the action. 

From looking at the flowchart in Fig. 1 we can see that the program must operate in the 
following order. 


(1) Set the player’s and computer’s scores to zero. These scores will be held by the variables 
PSCORE and CSCORE respectively. 

(2) Throw the player’s two dice. The numbers thrown will be held by the variables FTHROW 

and STHROW for the first and second throws. 

Display the total on the screen and store this total so that it can be used to calculate the 

winner later on. At this point the ORIC must WAIT for a length of time to allow the player 

to read his score. The player’s score will be stored in the variable PSCORE. This is the end of 

the player’s part of the game. 

Throw the ORIC’s dice. As the computer is throwing the same dice as the player the numbers 

thrown will be stored in the variables FTHROW and STHROW. Thus, these are temporary 

variables used to store data for a short period of time only. 

Display the ORIC’s total on the screen and store this total in the variable CSCORE for cal- 

culating the winner in the next part. 

(6) Now we have reached decision time. Both players have thrown their dice and we must decide 
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SET SCORES 
TO ZERO 


THROW 
PLAYER'S 
DICE & 
DISPLAY 
SCORE 


THROW 
ORIC’'S 
DICE & 
DISPLAY 
SCORE 


PLAYER WON 


ORIC WON 


UPDATE eee 
; PLAYER'S 
ORIC’S TOTAL TOTAL & 


& DISPLAY DISPLAY 


Fig. 1 — Flowchart for Dice Game. 
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the winner. This is done by asking the question, ‘has the player got a higher score than the 
computer?’ IF the answer is yes, THEN add one to the player’s score, ELSE add one to the 
ORIC’s score. 


The program is LISTed below. Type it in and RUN it a few times to get the hang of it. 


10 REM ** Dice Game** 

20 PSCORE=0 

30 CSCORE=0 

40 CLS 50 FTHROW=INT(RND(1)*6)+1 

60 STHROW=INT(RND(1)*6)+1 

70 PTHROW=FTHROW+STHROW 

80 PRINT“ You threw ”;PTHROW 

90 WAIT 100 

100 PRINT“ ORIC’S TURN” 

110 WAIT 50 120 FTHROW=INT(RND(1)*6)+1 

130 STHROW=INT(RND(1)*6)+1 

140 CTHROW=FTHROW+STHROW 

150 PRINT“ ORIC Threw ”;CTHROW 

160 WAIT 100 

170 IF PTHROW>CTHROW THEN PSCORE=PSCORE+1 ELSE CSCORE=CSCORE+1 
180 PRINT“ Scores are ” 

190 PRINT“ Player’s score ”?PSCORE“ ORIC’s score ”;CSCORE 
200 PRINT ‘“‘Another game? (Y/N)” 

210 GET A$ 

220 IF A$=“‘Y” THEN 40 ELSE END 


The last three lines ask you if you want to play again. The GET statement in line 210 works 
in a similar way to the INPUT which we have already seen except that it ‘GETS’ a single character 
from the keyboard. This statement, unlike INPUT, does not need the RETURN key to enter data. 
In this case the key pressed is checked to see if it is the letter Y. If this key was pressed the pro- 
gram will continue RUNning from line 40. If any other key was pressed the program will finish. 
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You have no doubt noticed that if the player and the computer get the same score the com- 
puter wins. This is not very fair! Can you add a line to decide what to do if both players get the 
same score? Hint: Check this before deciding the winner. 

In the next chapter we’ll see how to save this program on cassette so that it can be used again 
without having to retype it into the computer. 


Using the cassette system 
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In this chapter we’ll look at the use of a cassette recorder for storing programs. This will be our 
filing system. 

After we have written programs on the ORIC, and no doubt spent some time getting them 
working, we shall want to be able to store them for future use. This can be done using an ordinary 
cassette recorder and ordinary cassette tapes. Programs are stored as modulated sound tones, but 
as far as we are concerned this doesn’t matter. 

The way a cassette recorder is connected to the ORIC is shown in Fig. 2. 


7-pin ‘DIN’ socket 


LX 
Lead supplied with ORIC 1 


Rec/Pb Socket 


Fig. 2 — Connection of a cassette recorder to the ORIC. 
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Commands for saving programs 


Each stored program is given a name so that it can be found later. This name can be made up of 
any combination of letters and digits up to and including 18 characters long. Extra characters 
will be ignored, as will leading spaces. 

As mentioned above, programs are actually stored as sound tones. The ORIC has a useful 
facility which lets the programmer specify the speed at which a program is to be saved. There are 
two speeds available. These are ‘send fast’ and ‘send slow’. The send fast speed is chosen by the 
ORIC unless send slow is specified. The computer is said to default to send fast. Because more 
tape is used, the send slow speed is the more reliable, although it takes longer to CSAVE and 
CLOAD programs. 

Let’s look at the form of the SAVE command. To SAVE a program which is to be called 
‘TEST’ the command would be: 


CSAVE “TEST” 


This will CSAVE the program currently in memory under the name TEST. The name under which 
the program is to be SAVEd must be inside quotation marks. The form used to store a program 
at the send slow speed is the same as this, except that the statement has ‘,S’ added on at the end. 


CSAVE “TEST”’,S 


will CSAVE the program currently in memory under the name TEST slowly. 

It is possible to CSAVE two programs under the same name. This is probably not a very good 
idea, but will not confuse the ORIC since programs are reached sequentially when they are 
CLOADed from cassette. The machine will just CLOAD the first program it finds with the name 
given in the CLOAD statement. We’ll look at this now. 


Commands for Loading programs from cassette 


The commands for LOADing programs from cassette are very similar to the ones we have seen 
above. Again, the programmer has the option of CLOADing receive fast or receive slow. The 
restriction is that programs which were CSAVEd send fast must be CLOADed receive fast, the 
programs CSAVEd send slow must be CLOADed receive slow. 
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The form of the command is shown below: 
CLOAD “TEST” 
for LOADing receive fast or 
CLOAD “TEST”’,S 


for LOADing receive slow. 

These commands will CLOAD into memory the program CSAVEd under the name TEST. 

A useful tip for CLOADing the first program on a cassette is to leave the program name out. 
Just the quotation marks are used. This will CLOAD the first program the ORIC finds on the 
cassette. 

The command becomes: 


CLOAD “” 


or 


CLOAD “”’,S 


Unfortunately, if you forget whether a program was CSAVEd fast or slow, you will have to try 
both speeds. The ORIC does not recognize programs CSAVEd fast when searching for a slow one, 
or slow programs when searching for a fast one. 

Normally, both of these commands will be used in the Direct command mode. It is possible, 
though, to use them inside programs. In this mode they need line numbers of course. If you decide 
to use these commands inside a program you will have to make sure that the program tells the 
user when to turn the cassette recorder on and off since the ORIC has no control over it. This 
could be done using the short programs below. 


50 PRINT “Press play on cassette recorder.” 
60 PRINT “Press any key when ready.” 

70 GET A$ 

80 CLOAD “Program name” 


This will CLOAD the program called (Program name) into the middle of the one already RUNning. 
The ORIC will wait until a key has been pressed before CLOADing the new program. The program 
currently in the computer’s memory will be erased before the new one is CLOADed. Remember 
to start the second program with a reminder to turn the cassette recorder off! 
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The AUTO command 


The AUTO command can be added when a program is CSAVEd. It makes the ORIC RUN the 
program as soon as it has been CLOADed. The AUTO facility is used by CSAVEing a program 
using the line. 


CSAVE “TEST” AUTO sending fast. 
or 


CSAVE “TEST”’,S,AUTO sending slow. 


This command is clearly very useful when CLOADing one program from within another. 

The ORIC’s CSAVE command also has a facility which allows it to CSAVE specified areas of 
memory. Before we discuss this, we should talk a little about the ORIC’s memory. 

The ORIC contains two types of memory, ‘Read Only Memory’ (ROM) and ‘Random Access 
Memory’ (RAM). As its name implies, ROM is memory which can only be read from and, since it 
does not lose its contents when the power is switched off, it is used to hold all the programs 
which are needed to make the ORIC understand BASIC. Clearly, this memory is not available 
for us to use to store our programs. The memory which we use is the RAM. This will, unfortu- 
nately, lose its contents when the power is switched off. The ORIC has about three times more 
RAM then ROM. Each time the computer is turned on it displays the amount of RAM available 
for us to write programs in. There are 47870 memory cells, or bytes, available. So that each cell 
can be identified it is given a number which is called its address. Valid addresses lie in the range 
0 to 65535. The BASIC command PEEK (address) enables us to look at the contents of any given 
cell, given its address. For example the command 


PRINT PEEK(65502) 


will display a value 65. Thus PEEK enables us to look at the ORIC’s memory. 
Each address can contain a number between O and 255. Why 255? the answer lies in the 
way computers count. 


Binary arithmetic 
Normally, we count in multiples of 10, so 64035 really means 


6*(1044)+4*(1013)0*(1012)+3*(1011)+5 
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an this way we can represent any number using only the digits 0,1,2,3,4,5,6,7,8,9. Notice 
9 is one less than the magic number 10. We say the we to arithmetic to base 10. There is nothing 
special about 10, any whole number greater than 1 will do just as well as the base for arithmetic. 
Ia fact computers use base 2. Thus the number 129, which normally means 


1*(10¢2)+*(1041)+9 
is remembered by the computer as 
1*(247)+0*(216)+0*(215)+0*(2 14)+0*(23)+0*(212)+0*(2T1)+1 


or more briefly as 10000001. Note that we are still talking about the same number, 129, but the 
representation is different. Since computers do arithmetic to base 2 they need only use the digits 
0 to 1. A switch is either on (1) or off (0). It is easy to see why base two makes sense for com- 
puters. Arithmetic to base 2 is called binary arithmetic, and the digits, when used in the computer, 
bits. So, why is the largest number that a memory cell can hold 255? The answer is quite simple. 
Each memory cell contains eight bits. Therefore the largest binary number which one can hold is 


1*(247)+1 *(216)+1 *(246)+1 *(25)1 *(264)41 *(243)41 #(242)+1 F241) +1 
or, written normally, 


1284+644+32+16+8+44+2+1 = 255 


BASIC has a command which compliments PEEK. This is the POKE command, and does the 
reverse of PEEK. Given a value and an address, it will place, of POKE, the value given into the 
memory cell whose address is given. Try the following line. 


POKE 48000,65 


A letter ‘A’ should appear in the top left-hand corner of the screen. Here we put the number 65, 
the screen code for A, in address 48000. It happens that 48000 is the first location in a block of 
memory devoted to the screen display. Note that PEEK needs brackets and POKE does not. A 
word of caution is needed with the use of the POKE command as it can disrupt the normal running 
of the ORIC. If you POKE an address that causes drastic results, simply turn the machine off and 
on again, and then continue. You can’t do any harm, you can’t POKE new values into ROM. 

We have just seen how the ORIC’s memory is made up of numbered cells. The CSAVE and 
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CLOAD commands have one more variation that can be useful. They can allow us to CSAVE and 
CLOAD areas of memory. To do this we need to give the start and finish addresses of the area to 
be CSAVED. The commands are 


CSAVE “BLOCK” ,A46080,E47104 


to CSAVE a block starting at address 46080 and finishing at address 47104 under the name 
BLOCK. To retrieve this we use the command 


CLOAD “BLOCK’’, A46080,E47104 


There is, however, a light problem with this. After a block has been CLOADed it is necessary to 
enter the command NEW. Thus a block of memory cannot be CLOADed from inside a program 
without losing the program which CLOADed it. 


Loops 
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Introduction 


In this chapter we shall examine the two forms of loop which the ORIC has available, and see how 
operations can be performed many times using a few program lines. 

In the last chapter we saw how to make the ORIC throw a die many times using only four 
lines using a program loop. Clearly, a program form which allows us to do this can be very power- 
ful. The ORIC has two forms of loop available for the programmer to use. The difference between 
these and the example in the last chapter is that the loop statements allow us to control the 
number of times which the operation inside the loop is carried out. 


The FOR—NEXT loop 


This is a loop construct which allows the programmer to specify the number of times the opera- 
tion inside the loop is to be performed. Its format is 


FOR <counter >= < start > TO < finish > STEP < increment > 
< operation > 
NEXT < count > 


the loop works as follows. 

A count is kept of the number of times the loop has been performed. This is done by means 
of the variable used in the <count> part of the statement. The start and finish values of this 
variable are given separated by the TO statement. The number by which the counter needs to be 
updated each time round the operation inside the loop is performed is given using the STEP part 
of the statement. The operation to be performed is then written using normal BASIC statements 
and finished with the line next <count>. This tells the ORIC that it has reached the end of the 
loop, and so must update the counter and check to see if it is now larger than the end value 
given at the start of the loop. If it is, the loop will be finished and the program will continue from 
the next program line. If it is not, the loop will be repeated until itis. Thus by choosing the start 
and finish values of the loop counter, we can set the number of times the operation inside the loop 
is performed. The flowchart for this construct is given in Fig. 3. 
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SET LOOP 
COUNTER 


PERFORM 
OPERATION 


UPDATE 
COUNTER 


FINISH 


Fig. 3 — Flowchart of FOR—NEXT loop. 
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Let’s see an example. 


10 FOR COUNT = 0 TO 10 STEP 1 
20: PRINT 2*COUNT 

30 NEXT COUNT 

40 END 


This program will PRINT the two times table on the screen. Notice that the loop counting 
variable is being used inside the loop itself. You can follow this program through by hand by 
substituting the value for the loop counter, COUNT, each time round the loop. The first time 
round it will be 0, the second, 1, and so on, until it reaches 10. It will then be updated as usual, 
but this time will be out of the range given at the beginning, so the loop will finish. 

A point to remember is that the loop count variable is available for use in the rest of a BASIC 
program, and will leave the FOR—NEXT loop with a value of the final loop count plus the STEP 
size. If this variables name is used before the loop, the loop will change its value. So, be careful. 

The display format is important to notice here. The operation within the loop has been offset 
with respect to the other lines using a colon at the start of this line. Although ORIC BASIC does 
not require this to be done, it can make programs containing many loops much easier to read. 
The colon is needed since the ORIC ignores all leading spaces before commands in program lines. 
Here the colon acts as a non-operational, or null, command. This format will be used throughout 
the rest of this book to make loop structures stand out. 

If we use different STEPs, the amount the loop counter is updated each time the loop is per- 
formed will change. In this example we use a STEP of 5. 


10 CLS 

20 FOR I=1 TO 100 STEP 5 

30: PRINT “LOOP COUNT IS”I 
40 NEXTI 

50 END 


Try this program with a STEP value of .5. 

Very often we use a STEP value of one so, to be helpful, the STEP part of this statement is 
optional and can be left off. If this is done, the amount the loop counter is updated each time 
round the loop will default to one. This is shown in the short program below which simulates an 
explosion. 
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10 EXPLODE 

20 FOR J=0 TO 10 

30: P=INT(RND(1)*7)+1 
40: I=INT(RND(1 )*7)+1 
50: PAPER P 

60: INK I 

70 NEXT J 

80 END 


After we have set up one loop we can put another one inside it if we wish. This is known as 
nesting. There are, though, a couple of rules which we need to remember when doing this. 

First, and most important, the inner loop has to be completely inside the first. They must 
not overlap. This is shown below. 


10 FOR I= 0 TO 10 
20: FOR J=0 TO 20 


30: PRINT J 
40: NEXT J 
50 NEXT I 


is correct, but 


10 FORI=0 TO 10 


20: FOR J= 0 TO 20 
30: PRINT J 
40 NEXT I 

50: NEXT J 


is NOT, and will not RUN. 

In the second, incorrect case, the indented layout helps to show that the loops have not been 
nested properly. Always check that the loop count variable names are in the same vertical line. 
A point to remember is that programs with several nested loops in them RUN faster if long loops 
are placed inside short ones. 

The second important point to remember when nesting loops is that the loop count variable 
names used must be different for each loop. 
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Finally, programs should not jump out of the middle of FOR-NEXT loops. It is possible to 
do this in BASIC, but it is very bad programming practice. 

Suppose we want to set a loop up which controls a whole program. An example of this 
could be a loop round the whole of the dice-game program which we saw in Chapter 2. Clearly, 
the FOR—NEXT loop is not suitable since it requires that we know the number of times the loop 
is to be performed. We could use a test and jump if the user wants to play again, but this is not 
very satisfactory from the point of view of understanding what is happening when we first look 
at the program. When you think about it, there are many occasions when we need to perform an 
operation a number of times, but do not know how many before we start. This is where we need 


the second type of loop structure which the ORIC has available. This is the REPEAT—UNTIL 
loop. 


The REPEAT—UNTIL loop 


We have just seen that the FOR—NEXT loop is very useful if an operation needs to be performed 
a specific number of times. The REPEAT—UNTIL loop, though, allows us to make the ORIC 
REPEAT an operation UNTIL we tell it to stop. Because this form of loop REPEATs UNTIL 
told to stop, it does not have a counting variable. Instead it is controlled by a conditional test. 
The result of this test can have one of two possible outcomes. It is either TRUE or FALSE. In 
much the same way that a bit in a memory cell can either be a one or a zero. The loop will REPEAT 
UNTIL the result of this test is TRUE, in which case the program will continue RUNning from the 
next program line. If the result is not true, i.e. false, the operation inside the loop will be per- 
formed again. The format for the REPEAT—UNTIL statement is shown below. 


REPEAT 
< operation > 
UNTIL < condition TRUE > 


The flowchart for this statement is given in Fig. 4. 
The first program using this statement will keep choosing a random number in the range 1 
to 10 UNTIL the number 7 is found. Again, the loop will be laid out using the indented format. 
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START 


PERFORM 
OPERATION 


FINISH 
CONDITION 
TRUE? 


YES 
10 CLS 


20 REPEAT 


30: N=INT(RND(1)*10)+1 
40: PRINT “ Number throw =”;N 
50 UNTIL N=10 


60 PRINT “ Ten thrown.” 
70 END Fig. 4 — Flowchart for REPEAT—UNTIL loop. 


This program will keep generating, and PRINTing, random numbers UNTIL ten appears. It will 
then finish. 

An important application for this form of loop is to make the ORIC keep REPEATing an 
operation UNTIL a key is pressed. When a key is pressed, the program can either finish or continue 
with another operation. To do this we need to look at another BASIC statement. This is the 
KEY$ statement. 
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KEY$ looks at the keyboard, and returns the any key pressed; if any. If no key is being 
pressed, it will return with a ‘null’ key. 

Apart from checking to see if a key is being pressed at any particular moment, it has a useful 
facility which allows it to be used in the decision at the end of REPEAT—UNTIL loops. If a key 
is pressed it will return a TRUE result, and if not, a FALSE one. Therefore, to REPEAT an opera- 
tion UNTIL the user presses a key we can use the line. 


UNTIL KEY$ 


Let’s see an example. This short program will keep counting UNTIL any key on the keyboard is 
pressed. 


10 CLS 

20 COUNT=0 

30 REPEAT 

40: COUNT=COUNT+1 

50: PRINT COUNT 

60 UNTIL KEY$ 

70 PRINT “Count reached’”;\COUNT 
80 END 


REPEAT—UNTIL loops can be nested in the same way that FOR—NEXT loops can, provided 
that similar precautions are taken. These are: First, the loops must not overlap each other. Each 
must be a complete loop by itself. Secondly, the variables used by the UNTIL statements should 
be different if the whole structure is not to finish at the same time. This, can, of course, be required 
in some circumstances though. Finally, as with FOR—NEXT loops, the program should not jump 
out of the middle of REPEAT—UNTIL loops without going through the UNTIL statement. 

Again, the operation inside the loop will be performed at least once, since the test for the exit 
condition is at the end of the loop. 

A loop structure can be set up in which the operation inside the loop will not always be per- 
formed at least once. This type of loop is the while loop. It is not available directly on the ORIC, 

- but can be obtained by adding another test at the beginning of a REPEAT—UNTIL loop. If the 
condition being tested is true, then the program can be forced to jump to the line containing the 
UNTIL at the end of our REPEAT—UNTIL loop. For example, if we want to repeat an operation 
while the value of variable A is less then ten. 
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10 CLS 
20 REPEAT 

30: IF A=10 THEN 60 

40: A=INT(RND(1)*10)+1 
50: PRINT“ A=”:A 

60 UNTIL A=10 

70 END 


Notice that here, unlike the random number generating example we saw above, the value is not 
PRINTed in the case when A=10. The program performs the operation. 


while A is not equal to 10 
PRINT A 


We will see this form of loop again in the ‘blackjack’ program. 


When to use a FOR—NEXT loop 


The FOR—NEXT loop is used when an operation needs to be performed a given number of times, 
and the number of times is known in advance. The number of times that the loop is performed is 
controlled by a loop counter variable. This variable is accessable by the rest of the BASIC program. 
It will, however, be reset to the initial count given in the loop statement each time a loop which 
uses this loop variable is encountered. The operation inside FOR—NEXT loops will always be 
performed at least once. 


When to use a REPEAT—UNTIL loop 


The REPEAT—UNTIL loop is used when an operation needs to be repeated an unknown number 
of times. The actual number of times the operation is repeated is determined by the result of a 
test at the end of the loop. The operation inside the loop will be repeated if this condition is not 
met, and not repeated if it is. Again, the operation inside the loop will be performed at least once. 

If the operation inside the loop needs to be controlled by a variable which can be set else- 
where in a program so that the loop is required to be ignored in certain circumstances, the form of 
the REPEAT-—-UNTIL loop shown above can be used. 
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In the last part of this chapter we will look at the dice game which we saw in Chapter 2 pro- 
grammed with a REPEAT—UNTIL loop. 


10 REM Dice Game using loops 
20 PSCORE=0 

30 CSCORE=0 

40 REPEAT 


45: 
50: 


PTHROW=0 
CTHROW=0 
CLS 


FOR N= 1 TO2 
PTHROW= INT(RND(1)*6)+1 
NEXT 


PRINT “ You threw ”;PTHROW 
WAIT 100 


PRINT “ ORIC’s turn.” 
WAIT 50 


FOR N=1TO2 
CTHROW= INT(RND(1)*6)+1 
NEXTN  - 


PRINT “ ORIC threw ”;CTHROW 

WAIT 100 

PRINT “ Throws are ” 

PRINT “ Player’s throw ”;PTHROW” ORIC’s throw” ;CTHROW 

IF PTHROW<>CTHROW THEN 240 

PRINT “ Even ”:GOTO 250 

IF PTHROW>STHROW THEN PSCORE=PSCORE+1 ELSE CSCORE=SCORE+1 
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250: PRINT:PRINT 

260: PRINT “ Scores are ” 

270: PRINT “ Player’s score ’;PSCORE ‘‘ ORIC’s score ”;CSCORE 
280: PRINT “ Another game? (Y/N)” 

290: GET A$ 

295: 

300 UNTIL A$ =“‘N” 


This program uses the same approach to solve the problem as the one in Chapter 2, in fact, the 
flowcharts for the two programs are the same. The differences lie in the way the operations inside 
the flowchart boxes are carried out. This program, instead of storing the values thrown by each die 
in separate variables, and then adding them after both dice have been thrown, uses FOR—-NEXT 
loops to update the thrown scores as it goes along. This is done for the player by lines 80 to 100, 
and for ORIC by lines 150 to 170. 

Now that we have started to write longer programs, we shall want to make them more read- 
able for the future. We shall want to add REMarks to ourselves. To do this we use the REM 
statement. This tells the ORIC that the rest of this line isa REMark, and does not contain BASIC 
commands. The computer will ignore anything after a REM statement when RUNning a program. 
REMs can be added after a normal program using a colon to separate them from the line, but 
BASIC statements cannot be added after a REM statement since the ORIC will ignore them. The 
colons in empty lines in this program have been included to separate the different blocks from 
each other. REMs could have been used, but they tend to clutter the program up if separation 
within the program is required rather than comment on it. 


Conditions and strings 
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In order to do many useful things a computer must be able to make decisions. We need a way to 
make it perform different operations in different circumstances. We have seen this done on a num- 
ber of occasions already. In this chapter we shall take a closer look at decision making on the 
ORIC. 


The IF—THEN—ELSE statement 


We saw this statement briefly in Chapter 2, where it was used to decide the winner of the dice 
game. It allowed the program to take one of two possible alternatives, depending on the value of 
a given variable. In practice it can be used in several ways. Its general form is as follows: 


IF < given condition met > THEN < option 1 > ELSE < option 2 > 


This is shown in the flowchart given in Fig. 5. 
An example of this form is: 


IF A>B THEN 100 ELSE 200 


where A and B are program variables. 

In this example the condition which decides the outcome is whether one number is greater 
than another, i.e. whether A is greater than B. IF it is, THEN the program will continue RUNning 
from line 100, ELSE it will continue RUNning from line 200. Note that if A=B, the ELSE part 
of the statement will be performed since the decision is being made as to whether A is ‘greater’ 
than B. 

Let’s look at an example. 


10 FOR I= 0 TO 10 
20: IF I>5 THEN PRINT “A> 5” ELSE PRINT “A <5” 
30 NEXT I 


ORIC BASIC allows the ELSE part of this statement to be omitted giving the line: 
IF A>B THEN 100 


In this case the ELSE part is assumed to be ‘ELSE next program line’. Here, if the condition is 
not met, the program will continue from the next program line. For example, if we want to check 
that a number put into a program is one of a number of options, we can use this program below. 
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START 


CONDITION 
TRUE? 


OPTION 2 OPTION 1 


FINISH 


Fig. 5 — Flowchart for IF-THEN-—ELSE statement. 
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This can be used as a general range checking routine. 


100 INPUT “OPTION (1,2,3) ”;A 
110 IF A<1 OR A>3 THEN 100 
120 IF A=1 THEN 300 
130 IF A=2 THEN 400 
140 IF A=3 THEN 500 


This example makes use of the fact that the next program line is RUN if the tested condition has 
not been met by letting the program ‘drop through’ until the option entered is found. Line 110 
is being used to check that the number which this program is looking for is allowed. If either of 
the conditions tested here are true, showing that an invalid option has been entered, the program 
will ask the user to choose again. 

The IF—THEN—ELSE statement can be used in another way to the one shown above. Instead 
of changing the line which the ORIC will RUN next, it can be used to assign different values to 
variables depending on the result of the test. This is shown in its simplest form by the example: 


IF A=10 THEN B=27 ELSE B=30 


In this case the variable B will be set to either 27 or 30, depending on the value of the variable A. 

This use of the decision is the one in which we most often need to use multiple statement 
lines, since we usually need to assign new values to a number of variables at the same time. Re- 
member, though, that after the variables have had their new values assigned, the program will 
continue RUNning from the next program line. We can see this in the following example. 


10 IF A=10 THEN B=5:C=21:D=50 ELSE B=7:C=30:D=52 
20 PRINT B,C,D 


Therefore, unless GOTO is used the program will continue from the same line or either result 
from the IF decision. 


Logical decisions 


In Chapter 3 we looked at logical variables. These can form the condition which is being tested in 
the IF—THEN—ELSE statement, since the decision is whether a condition is true or false. If the 
condition being tested is TRUE, the first option will be taken, and if FALSE, the second. This is 
shown in the following example: 
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10 CLS 
20 PRINT “It it night time?(Y/N)” 

30 INPUT A$ 

40 IF AS<>“Y” OR AS<>“N” THEN 10 

50 IF A$=“Y” THEN D=TRUE ELSE D=FALSE 

60 IF D THEN PRINT“It must be dark!” ELSE PRINT “It must be light.” 


The test is made in line 60 to see whether the variable D is true or false. If it is true the message 
‘It must be dark!’ will be PRINTed, and if false, the message ‘It must be light’. The ORIC regards 
this kind of variable as a type of integer variable which can have either of two values. True is 
regarded as —1 and false 0. 

Logical operations can also be performed on the individual bits in memory, as well as the bits 
which make the representation of an integer number. To do this ORIC BASIC has a set of logical 
operators available. We shall look at them now. They will allow us to perform quite complex 
branch-on-condition instructions easily. When used at the bit level, these instructions require a 
good understanding of the binary representation of numbers. This is explained in Chapter 3. 

There are three logical operators available. These are NOT, OR and AND. 


NOT(N) 

This operator simply flips each bit in the integer number N. Thus NOT(O) is one, and NOT(1), 0. 
The result produced when using other numbers can be found as follows. Suppose we perform 
NOT(85). First, the binary representation for 85 is 


O*(217)+1 *(246)+0*(215)+1 *(244)+0*(213)+1 *(242)40*(2 1141 
01010101 

Flipping each bit gives us 
10101010 

which equals 170. 


OR 
We saw this used in an example above operating on two logical variables. The result will be TRUE 
if either the first bit OR the second bit is true. This is shown in the example. 
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A=155 OR 30 
The binary representation of 155 is 
10011011 
and of 30 is 
00011100 
taking each pair of bits this gives 
10011111 


which in decimal representation is 159. 


ab is similar to OR except that the result will be true if the bit in the first number is true AND 
the corresponding bit in the second bit is one, for example: 

155 and 30 

10011011 

00011100 
will give 

00011000 


which in decimal representation is 24. 


Character Strings and their uses 


In this section we shall be looking at character strings and their uses. We were introduced to string 
variables in Chapter 1, and have come across characters being used in a couple of examples so far, 
although we have made no use of the facilities the ORIC has available for manipulating character 
strings. 

All the characters which the ORIC uses are stored in memory as number codes. The actual 
code used is the American Standard Code for Information Interchange (ASCII), and is the stan- 
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dard used by most computers. A list of characters and their ASCII codes is given at the end of this 
book. First let’s see a short program which will allow us to compile a table of character codes. To 
do this we will use a BASIC statement which we have used in a couple of examples already, 
together with a new one. The program is given below. 


10 REM ASCII codes. 

20 REPEAT 

30: GET A$ 

40: A=ASC(A$) 

50: PRINT “ Character ”;A$;“‘ ASCII Code ”;A 
50 UNTIL A=13 

70 END 


This program will take any keys pressed on the keyboard, and display the character pressed, 
together with that character’s ASCII code. To finish the program type < Return>. 

The BASIC statement ASC(A$) used in line 40 returns the ASCII code associated with the 
character inside the brackets. If more than one character is inserted, ASC will return the ASCII 
code for the first. If you RUN this program while the ORIC is in lower-case mode, you will see 
that upper- and lower-case characters have different ASCII codes, i.e. A is NOT equal to a. This 
is the reason why all BASIC statements must be in upper-case. 

The reverse process of the one performed by the ASC(A$) can be obtained using CHR$(N). 
This gives the character whose ASCII code is N. Try this program: 


10 FOR I= 32 TO 125 
20: PRINT I,CHRS(1) 
30 NEXT I 

40 END 


The CHR§$(N) statement can also be used to obtain the CTRL key functions listed in Chap- 
ter 2 within programs. The line needed is: 
PRINT CHRS$(N) 
where N is the ASCII code for the required function. 
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Assigning String Variables 
Probably the most fundamental of the string functions available on the ORIC is the one which 
assigns a character string to a string variable. This is done in the same way that numeric values are 


assigned to real or integer variables, except that the string being assigned is enclosed within quotes, 
for example: 


A$= “HELLO” 


will assign the character string, HELLO, to the variable A$. Single characters can be assigned 
using CHR$. 


A$= CHRS$(20) 


will assign the CTRL code for toggling upper- and lower-case to the variable A$ so that this func- 
tion can be obtained within a program by using the line. 


PRINT “E”;A$;“XAMPLE OF MIXING ”;A$;“U’A$;“PPER AND LOWER CASE 
TEXT.” 


If we have two character strings, A$ and B$, we can add them using the following line. 
C$= A$+B$ 
for example: 


10 A$= “MICRO” 

20 B$= “COMPUTER” 
30 C$= A$+B$ 

40 PRINT C$ 

50 END 


The answer to the possible next question is, no, you cannot subtract strings. However, strings 
do have a defined order given by their ASCII codes. We can see that ‘A’ < ‘B’ since the code for A 
is 65, and B, 66. We shall see a program which will sort a list of words into alphabetical order. 

Figures can be assigned as strings. ORIC BASIC has two statements which allow figures to be 
converted from strings to figures and back again. These are VAL(N$) and STR$(N). We’ll look 
at these now. 
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VAL and STR$ 
The function of VAL(N$) is to convert the figure string, enclosed in brackets, into a number 
containing the same figures. If an attempt is made to obtain the VAL letters, the result given is 
zero. Therefore VAL(AB}0. 

STR$ performs the reverse function. It takes a number and converts it to a string of charac- 
ters. An attempt to convert letters will produce an error. 

Examples for the use of VAL and STR$ are given below. 


10 N$= “1983” 
20 N= VAL(NS) 
30 PRINT N 

40 END 


and 


10 N=1983 
20 N$=STRS(N) 
30 PRINT N$ 
40 END 


will assign the contents of a given real variable as a given string variable as a character string with 
the same figures. 

VAL can be a useful function to use with INPUT. If an INPUT statement is expecting a num- 
ber and receives any other kind of character a REDO FROM START message occurs which can 
spoil a carefully set up screen display. This is avoided if a string is INPUT and then converted to 
a number using VAL, for example: 


10 INPUT ‘“ VALUE OF A”;A$ 
20 A=VAL(A$) 


The function LEN(A$) can be used to obtain the number of characters in a given string, 
for example: 


62 CONDITIONS AND STRINGS 


10 A$= “HELLO” 
20 PRINT LEN(AS) 


or 


10 A$= “HELLO” 
20 N= LEN(AS) 
30 PRINT N 


will give the answer 5. 

ORIC BASIC has three functions which can extract parts from strings. These are LEFT$, 
MID$, and RIGHTS. All three of these functions work in a similar way in that they return speci- 
fied numbers of characters from a given string. The difference between them is the section of the 
main string that they return. LEFT$ will return a specified number of characters from the left 
of the main string. MID$ will return characters from the middle, and RIGHT$, a number of 
characters from the rightmost end. We’ll look at each of these. 


LEFT$ 
LEFT$ will return a specified number of characters starting at the first, leftmost, character. 
The format of the function is: 


A$= LEFT$(S$,N) 
This will assign the first N characters of the string S$ to the string A$, for example: 


10 S$=“MICROCOMPUTER” 
20 FOR I=0 TO LEN(S$) 

30:  A$= LEFT$(S$,1) 
40:  PRINTAS$ 

50 NEXT I 

60 END 


MID$ 
MID$ returns the a string of a specified number of characters from a given position within the 
main string. Therefore, three pieces of data are required: the name of the main string, the starting 


CONDITIONS AND STRINGS 63 


position within this string, and the number of characters to be returned. The format for this 
function is. 

A$= MID$(S+,N,L) 
where S$ is the name of the main string, N the starting position within this string, and L the 
number of characters to be returned. The count for the start position is from the left-hand end of 
the main string. Therefore: 

if S$= MICROCOMPUTER 
A$= MID$(S$,6,3) 


will return A$ as ‘COM’. 


Try this example: 


10 S$= “MICROCOMPUTER” 
20 FOR I= 0 TO LEN(S$) 
30:  FORJ=0TO3 


40: A$= MIDS(S$,1J) 
50: PRINT AS 

60:  NEXTJ 

70 NEXT I 

80 END 


RIGHT$ 
RIGHT$ works in a similar way as LEFT$, except that the a number of characters are returned 


starting from the right-hand end of the main string, for example: 


10 S$= “MICROCOMPUTER” 
20 FOR I= 0 TO LEN(A$) 

30:  A$=RIGHTS(S$.I) 
40: PRINT AS 

50 END 
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If the $ is omitted from any of these function names, ORIC BASIC will regard the function names 
as real variables. A 7TYPE MISMATCH ERROR will be returned. 


String manipulation of numbers can be very useful for producing tidy lists of figures. If we simply 
use the statement, 
PRINT SPC(3)N 


we will have an untidy column, since N can take numbers of different length. We need a way to 
right justify the column. This can be performed by the line. 


PRINT SPC(3)RIGHT$(“ ”+STRS(N,6)) 
This works as follows. If N equals —7, adding the string of spaces will produce the string, 


If, on the other ne N has the value 65535, 
N+“ ve 

will give 
7 65535” 


which, when we take the six rightmost characters gives: 
65535” 
When both of these are PRINTed on the screen we get the required result: 


a 
65535 


Ordered storage 
(arrays and DATA statements) 
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Introduction 


In this chapter we will look at ways to store information, or data, in the ORIC. This is obviously 
very important if we are to make the best of the machine. 

There are two ways to store program data in the ORIC, both of which will be examined in 
this chapter. The method chosen for a particular program will be determined by the type of data 
to be stored, and by the way in which this data is to be used. 

The first method, using ARRAYS, allows a program to generate, store and retrieve data while 
it is RUNning. It is, however, difficult to include data as an integral part of a program using this 
method. The second method, using the DATA statement, allows data to become an integral part 
of a program, but this data cannot be changed by the program itself. 

To start with we’ll look at the first method, using ARRAYS. 


Arrays 


The array allows a program to store data as an ordered collection which can be referred to as a 
single block. A simple way to think of an array is as a line of boxes which can have information, 
or data, kept in them. The whole block can be referred to and, since these boxes are numbered, 
they can be referred to individually. 


bones : [aston fe fo fs 
boxes 
1 2 3 4 5 6 7 8 


box number 


<————— array of boxes —————__> 


Before an array can be used it must be DIMensioned. This tells the ORIC the size and name of 
the array. This allows the computer to set aside enough memory space for it. We’ll talk about 
memory space later in this chapter. This DIMensioning is done using the DIM statement. 
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The DIM statement 


The DIM statement does two things. First it tells the ORIC how large the array being DIMensioned 
is going to be, allowing the ORIC to set aside the required amount of memory space. Secondly, 
it tells the computer the name of the array. The form of the statement is shown below. 


DIM < array name > (< array size > ) 


For example, to DIMension an array to be called ARRAY in which has the highest numbered 
entry is 50, the statement would be 


DIM ARRAY (50) 


The figure inside the brackets is the number of the highest numbered entry in the array. This is, 
in fact, one more than the number of entries in the array since the ORIC starts counting array 
elements from zero. 

Note that the ORIC only uses the first two characters in an array name to distinguish between 
arrays. This is the same with variable names. Therefore this array will actually have 51 entries 
available for use in a program. Normally all the arrays which a program is going to use would be 
DiMensioned at the start of the program. Arrays can only be DIMensioned once; if an array is 
DIMensioned again during a program a “7? REDIMENSIONED ARRAY ERROR?” will be produced. 

Let’s now look at an example using arrays. This program will put the squares of the numbers 
1 to 10 into the array SQUARE, and then PRINT them. 


10 DIM SQUARE(10) 

20 FOR NUMBER= | TO 10 

30: SQUARE(NUMBER)=NUMBER*NUMBER 
40: NEXT NUMBER 


60 FOR I= 1 TO 10 
70: PRINT I,LSQUARE(NUMBER) 
80 NEXT I 


An individual entry can be examined by ENTERing the Direct mode command. 
? SQUARE(6) 


The answer 36 will come up on the screen, 
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If for any reason, you use an array name before it has been DIMensioned, ORIC BASIC has 
a facility which reserves space for this array with 11 entries, i.e. the array will default as if DIM 
ARRAY (10) had been entered. Although this can save a small amount of typing, it is not recom- 
mended. Programs are made much harder to read since arrays seem to appear from nowhere in 
the middle without any previous reference. 


Larger Arrays 

Having looked at an array made up of a single row of ‘boxes’, the question arises about what 
happens if another row is added next to the first. This is allowed in ORIC BASIC producing 
two-dimensional arrays (see Fig. 6). The DIMensioning of this kind of array is carried out in the 
same way as the single dimensional array, except that the size of the array in each direction must 
be given. Therefore to DIMension a 10 by 5 array the statement would be: 


DIM ARRAY (10,5) 


Fig. 6 — Two-dimensional array. 
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The first number always refers to the X, or horizontal direction, and the second to the Y, or 
vertical one. 

Suppose we want to create an array containing multiplication tables for the numbers up to 
and including 12. To do this we would need a two-dimensional array with 12 entries horizon- 
tally and 12 entries vertically. There would, therefore, be 12*12 = 144 entries in the array. This 
array is DIMensioned by the statement below. 


DIM TABLE (12,12) 


Although this will actually set aside enough space for a matrix 13 by 13, since the ORIC starts 
counting from zero, in this example it is easier to follow what is going on if we DIMension the 
array as 12 by 12. To obtain an array 12 by 12 the DIM statement would be DIM ARRAY (11, 
11). 

To calculate the table entries we must work out the multiplication table for the first number 
from 1 to 12, put these results into the matrix, and then move on to the next number. This 
process is then repeated until the results for all the numbers from 1 to 12 have been calculated. 
We know the number of times each calculation must be done so we shall use two nested FOR— 
NEXT loops. The program is: 


10 REM**Multiplication tables. 
20 DIM TABLE(12,12) 

30 FOR ROW= 1 TO 12 

40: FOR COLUMN= 1 TO 12 


50: TABLE=(ROW,COLUMN)=ROW*COLUMN 
60: NEXT COLUMN 
70 NEXT ROW 


Enter this program and RUN it. To look at a particular multiplication table use the following 
Direct command. 


FOR I=0TO12:PRINT TABLE(1 ,4): NEXT 
This will PRINT the four times table on the screen. 


70 ORDERED STORAGE 


Alternatively, the following program can be added to the end of the one above: 


100 REM Display mult tables. 

110 CLS 

120 INPUT “ Mult table required?” ;A$ 
130 A=VAL(A$) 

140 IF A=0 THEN 10 

150 FOR I= 0 TO 12 

160: PRINT TABLE (I,N) 

170 NEXT 

180 PRINT:PRINT 

190 PRINT “Another? (Y/N)” 

200 GET A$ 

210 IF A$<>“Y” OR A$<>“N” THEN 180 
220 IF A$=“Y” THEN 10 

230 END 


Problems with memory space 


Although the ORIC has more memory available for BASIC programs than many other micro- 
computers, using large arrays can cause problems. A two-dimensional array with 100 by 100 
entries will produce an array with 1000 entries! This will require a lot of memory space to store it. 
A rough guide is that arrays need about six times as many bytes as there are elements. Therefore 
a 100*100 array would require around 60000 bytes. This size of array is, therefore, not possible 
on the ORIC. Let’s look at some of the ways to reduce the amount of memory space needed by an 
array. 

Clearly the first, and simplest way to reduce the amount of memory needed is to reduce the 
size of the array. This can be done by remembering to use the zero’th entry. 

The second method needs some explanation as to the way the ORIC stores data in an array. 
A real number is stored with an accuracy of nine decimal places. Therefore the number | would 
be stored as 1.000000000. Obviously, if we could use integer numbers in our program the com- 
puter would not need to store decimal places, thus saving a considerable amount of memory 
space. 
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Going back to the 100 by 100 array. If you try and dimension this as a real array an OUT OF 
MEMORY error is produced. If this is DIMensioned as an integer array, the ORIC will accept it. 

A rough guide is that integer arrays need only about 4 bytes for each entry. So, if you are 
using a large array, try to use integer numbers if you can. Remember that the more memory 
used by arrays, the less there is available for BASIC programs. 

The table example which we have just seen can be written using integers and will look like 
this. 


10 REM Integer multiplication tables. 
20 DIM TABLE%(12,12) 

30 FOR ROW= 1TO 12 

40: FOR COLUMN= 1 TO 12 


50: TABLE%(ROW COLUMN)=ROW*COLUMN 
60: NEXT COLUMN 
70 NEXT ROW 


In fact, what happens is that the number is calculated as a real number, and then loses any decimal 
places when put into an integer variable, as if an INT statement had been performed on it. Try 
this example: 


10 DIM 
20 FOR I=0 TO 10 

30: AWI)FI/5 

40: PRINT LA%(I),1/5 
50 NEXT I 


The same ‘trick’ can be used on variables. The line AZ%=A will have the same effect as per- 
forming an INT statement on the real variable A. 

How do we know how much memory space is available for us on the ORIC. The answer can 
be found using the FRE(O) statement. This statement has two uses. When entered in Direct mode 
it will return the number of bytes of memory available for BASIC programs to use. When it is 
used in programs FRE tidies up the storage of all the strings a program has created so far. If, for 
example, we change the length of a string using a statement A$=A$+CHR$(10), a new place in 
memory will be needed since the new string A$ is longer than the old one. This process will 
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leave gaps in the area used to store string variables. What FRE does is to rearrange all stored 
strings so that there are no gaps left in memory, thus FREeing more memory space for BASIC 
programs. 
A FRE operation is also performed if an ‘?0OUT OF MEMORY ERROR’ is suspected. This is 
done before the error message is displayed to make sure that there really is no memory available. 
Try following the procedure in Direct mode. First, enter the command NEW. This will reset 
the memory. Then enter the command 


? FRE(O) 
the answer 39421 will be returned. Now DIMension a large integer array. 
DIM A% (100,100) 


and enter the line again. This time the answer will be 19010. The difference between these two 
numbers, 20411, is the amount of memory space taken up by the DIMensioned array. 


Array sorting programs 


In this section we shall look at two programs which can be used to sort arrays into order. The first 
will sort an array of numbers into decreasing order. The second will sort an array of strings into 
alphabetical order. Both of these programs use a technique known as the bubblesort. As the 
name implies, numbers or characters which are in the wrong place in the array being sorted, 
‘bubble’ up to their correct places. The method works as follows. 

If an element of the array being sorted is less than the next one the two are swopped. This 
process is then repeated for all the elements in the array a number of times equal to one less than 
the number of elements in the array. The program below allows the user to enter up to twenty 
numbers into the array N. These numbers are then sorted into order, and the sorted array PRINTed 
on the screen. 


10 REM Number Sort. 

20 DIM N(20),M(20) 

30 CLS 

40 FOR I= 1 TO 20 

50: INPUT ‘“‘ NUMBER ”’;N 
60: N(D=N:M(D=N 
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70 NEXTI 

80 REM Sort Routine 

90 FOR I= 1 TO 19 

100: FOR J= (I+1) TO 20 


110: IF N(J)>=N(I) THEN 150 
120: T=N(1) 

130: N(D=N(J) 

140: N(IFT 

150: NEXTJ 

160 NEXT I 


170 REM Display sorted array. 
180 FOR IF 1 TO 20 

190: PRINT I,N(1),M(D) 
200 NEXT I 

210 END 


The array M(I) has been included so that a list of the unsorted numbers can be displayed at the 
end of the program. Notice that a number of arrays can be DIMensioned on the same line using 
one DIM statement if the array names are separated by commas. 

The second sorting program given here is a version of the first adapted so that it can sort 
character strings by means of the characters’ ASCII codes. This program will allow a ‘key’ to be 
used to set the number of alphabetic places the character strings are sorted to. The procedure is 
the same as before, except that the comparison between one array element and the next is on a 
number of characters. The array being sorted is A$. 


10 REM Char sort. 

20 CLS 

30 DIM A$(20),M$(20) 

40 INPUT“ Number of chars sorted to’’;N 
50 FOR I= 1 TO 20 

60: INPUT “Chars ”;C$ 

70: A$(I)=C$:M$(D=C$ 

80 NEXT I 
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90 REM Char sort. 
100 FOR I= 1 TO 19 


110: FOR J=(I+1) TO 20 

120: IF LEFT$(A$(J)‘N)>=LEFTS$(A$(I),N) THEN 
130: D$=A$(I) 

140: AS(D=AS(J) 

150: AS(J=DS$ 

160:  NEXTJ 

170 NEXT I 

180: 


190 FOR I= 1 TO 20 

200: PRINT I,AS(1), M$(1) 
210 NEXTI 

220 END 


In the last part of this section we'll look at a method to shuffle a pack of cards. This will 
be the routine used in the ‘pontoon’ program given at the end of this book. We’ll see how the 
cards are actually displayed in the chapter on graphics. 


Card Shuffle 
The problem which we have to solve here is the reverse of the one solved above. The machine must 
start off with an ordered, unshuffled pack of cards, and finish with a disordered, shuffled, one. 
However, in the disordered pack each card must appear only once, and all the 52 cards have to be 
present. 

This problem could be solved using two arrays, one for the unshuffled pack, and one for the 
shuffled one. The shuffle is performed in the following way. 


(1) First the cards are numbered 1 to 52. 

(2) They are then put into the array which is to contain the unshuffled pack. 

(3) One card is chosen at random from this pack and placed in the shuffled pack array. 

(4) All the cards in the unshffled pack before the one chosen are moved up one place to close the 
gap produced by removing the card chosen. 

(5) The count of the number of cards left in the unshuffled pack is decremented by one. 

(6) Steps (3)—(5) are repeated until all the cards have been shuffled. 
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THE DATA STATEMENT 


While arrays can be very useful for storing data within programs, since all the elements of an 
array are set to zero when a program is RUN, they cannot be used if data needs to be incorporated 
as a part of a program itself. This situation will be met in the Sound chapter where we shall need 
to include note values in programs. 

The DATA statement allows information, or DATA, to be included as an integral part of a 
BASIC program. The program can then access this DATA whenever it is needed while RUNning. 

The operation and use of the DATA statement is similar to that of a one-dimensional array, 
except that the DATA is entered along with the rest of the program, and therefore forms a part 
of the BASIC program itself. The statement is made up of two parts. First there is the DATA 
itself. This is listed in the order in which it is to be used, or READ, following the BASIC com- 
mand: DATA. This tells the ORIC that the numbers or characters which follow are DATA, and 
are to be used in this program. If several pieces of DATA are needed, they are simply written in 
order, separated by commas. 

The DATA is actually accessed in a program by means of the BASIC statement: READ. This 
works as follows. When the READ command is first met, the program will find the first DATA 
statement, and assign the first number or string it finds to the variable specified along with the 
READ statement. For example. 


100 READA 


will assign the first piece of DATA to A. 

Next, a pointer, similar to the one used in the card shuffle example to mark which card is to 
be taken, is moved along one position so that it points to the next piece of DATA. The next time 
a DATA statement is met this entry will be READ, and the pointer moved along again. This DATA 
pointer will be reset so that it points to the first piece of DATA each fime a program which uses 
DATA statements is RUN. If a READ statement is met after all the DATA has been used, an 
“OUT OF DATA” error message will be given. 

The last statement associated with DATA statements is the RESTORE command. This sets 
the DATA pointer back to the beginning of any DATA included in the program. It will, therefore, 
now point to the first piece of DATA. 

Let’s look at an example. 
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10 REM DATA statement example 
20 FOR POINTER= 0 TO 10 
30: READ A 
40: PRINT POINTER,A 
50 NEXT POINTER 
60 DATA 10,9,8,7,6 
70 DATA 5,4,3,2,1,0 
This program will READ through the list of DATA at the end of the program, and assign each 
value to the variable A. When it reaches the end of the first line, it will start at the beginning of 
the second one. 
The final statement available for use with DATA statements is the RESTORE statement. 
This resets the DATA pointer back to the first DATA given. 
If RESTORE is included into the program above, and placed before the NEXT line 50, the 
same piece of DATA will be READ each time round the loop. 


10 REM DATA with RESTORE 

20 FOR I=0 TO 10 

30: READ A 

40: PRINT LA 

45: RESTORE 

50 NEXT I 

60 DATA 10,9,8,7,6 

70 DATA 5,4,3,2,1,0 
We shall be meeting DATA again in the chapter dealing with the ORIC’s sound capabilities. There 
we'll use it to include the notes of tunes in BASIC programs. Before we leave DATA statements 
for a while, try this example which uses DATA statements to assign DATA to two variables. 


10 REM DATA with two variables. 
20 FOR I=0 TO 10 


30: READ A,B 
40: PRINT I,A,B 
50 NEXT I 


60 DATA 10,9,8,7,6,5,4,3,2,1,0 
70 DATA 1,2,3,4,5,6,7,8,9,10 


Maths made easy 
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In this chapter we shall look at the BASIC statements the ORIC has to perform maths. This will 
let us make the most out of the ORIC’s capabilities. 


Numbers 


The first subject which we’ll look at is how the ORIC represents numbers. Since the ORIC uses a 
great many numbers, this seems a good place to start. Obviously, the larger a number is, the more 
digits are needed to represent it. The method the ORIC uses is called scientific or exponential 
notation. Let’s see how this works. 

The number 13 can be written as 1.3*10. In the same way 130 can be written as 1.3*10*10 = 
1.3*100. In scientific notation this would be written as: 


1.3 E2 
and 
13000 written as 1.3 E4 


The ‘E’ tells us how many times ten needs to be multiplied by itself before the decimal part 
is multiplied in. The number after the E is the ‘power’ of ten. 

The procedure for converting between scientific notation and ‘normal’ notation is very 
simple. First write the decimal part down, and then move the decimal point to the right the 
number of ten is multiplied by itself. This is given after the ‘E’. If you run out of figures, add 
zeroes. For example, 


3.567 E4 = 35670 


In this last example you can see that if we had to store all the digits in the number, we could 
store fewer digits by just storing 1.3 and the power of ten than if we stored the number multi- 
plied out fully. This is why the ORIC uses scientific notation. If ORIC stores all real number along 
with nine decimal places and the power of ten. The ORIC will express all numbers greater than 
1 E9 in scientific notation. This is not the same as a number with more than nine digits in it though. 

3.14159265 would be expressed as seen here; but 3 141592650 would be displayed as 
3.141592265E09. 
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Small Numbers 
The same representation can be applied to small numbers, except that instead of multiplying the 
decimal part by ten, we divide it by ten. 


0.13 becomes (1.3)/10 or (1.3)*(1/10) 
and 


0.013 becomes (1.3)/100 or (1.3)*(1/100) 


The ORIC writes 1/100 as 1 E—2. This should not be confused with minus one over one 
hundred which would be written as —1 E—2. A minus sign after the E signifies that the number is 
divided by ten to the power shown. 

The procedure for converting from this notation to the normal one is the same as in the 
case for large numbers, except that the number is written down and the decimal point moved to 
the ‘left’ the number of times indicated in the exponent. If the decimal point needs to be moved 
more places than there are figures, zeroes must be inserted between the first figure and the decimal 
point. This is shown in the following example. 

Convert 3.742 E—3 to normal notation. Moving the decimal point to the left three times and 
adding zero when we run out of figures will give. 


0.003742 


The largest number the ORIC can handle is 1.70141 E38. If you try to use a number larger 
than this an “?OVERFLOW ERROR’ will be produced. If this is produced by a program, the 
program will stop running. It cannot be continued by using the CONT command, and must be 
RUN again. 

The smallest number the ORIC can handle is 2.9387 E—38. Any number smaller than this 
will be regarded as zero. This can cause problems if you try to divide’another number by this, 
since the overflow error mentioned above will be produced. 

When numbers expressed in this form are multiplied together, the procedure is; 


(2 E4) * *4 E4) = (2*4)E(4+4) 
=8 E8 
It should also be noted that 1 EO =1 
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Squares and Square Roots 


We have just seen that 100 equals 10*10. We say 100 is 10 ‘squared’. In the same way, 4 is 2 
squared, because 2*2 equals 4. 
If you type 


PRINT 312 


the answer 9 will be displayed 

The number after the ‘t’ tells the ORIC the number of times the first number is to be multi- 
plied together, i.e. it tells the ‘power’. 

2 to the tenth power would be 


PRINT 2110 
ie. 1024. 


Note: If speed of operation is important in a particular situation, the quickest way to raise a 

number to a power is to write the whole calculation out. Thus, to find the value of 27 cubed, 
27*27*27 

would be calculated quicker than 


273 


Square roots 
The square root of a number is the reverse of its square. That is, it is the number which when 
multiplied by itself will give the original number. 

The SQR(N) statement will give the square root of N. An attempt to find the square root 
of a negative number will produce an “?ILLEGAL QUANTITY ERROR’. For example: 


A= SQR(9) 
will give the result, 3, in the variable A. 
Higher roots of numbers 


Higher roots of numbers can be obtained using the t symbol that we saw above. The difference 
here is that the power to which the number given is being raised is a fraction. 
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To find the square of 4, the line would be. 
A= (4)t(0.5) 
Cube and higher roots are written in the same way. 
A = (27)t(0.3) 
will give the cube root of 27, and 
B= (1025)t(0.1), 


the tenth root of 1024. 
Again, any attempt to find a root of a negative number will give an “?ILLEGAL QUANTITY 


ERROR’. 


INT(X) 
We have already seen this command in use, so it is included here for completeness. 
INT(X) will give the greatest integer which is less than or equal to X. For example, 


INT(4.37) will give the answer 4. 


as will 4.99. 
If, however, the number is negative we get a slightly different result from the one we would 


expect. Try this example on the ORIC before reading on. 
PRINT INT(—4.37) 


The answer given will be —5. This might seem strange until we see exactly what the INT statement 
is doing. The INT(X) statement returns the greatest integer Jess than or equal to X. Since —5 is a 
smaller number (or quantity) than —4 this will be the answer. If, however, the value of X is a 
negative integer, the result after the INT statement will be the same negative integer. For example, 


PRINT INT(—5S) will give the result —5. 


An important use of the INT statement is the reduction of the number of decimal places 
PRINTed after a calculation. Very often we do not want answers to nine decimal places, but 
would be happy with two or three. This can be achieved using the INT statement by first moving 
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the decimal place to the right the number of decimal places required by multiplication. The re- 
maining digits are then removed using INT, and the decimal place moved back. This will always 
round down the number being operated on. 

Try this example for reducing to three decimal places. 


10 FOR I= 0 TO 1000 

20: A=INT(1000*SQR(1))/1000 
30:  PRINTLA 

40: NEXT I 


ABS(X) 

This statement returns the ABSolute value of the number or variable inside the brackets, i.e. 
removes the sign in from of the number making negative numbers positive and positive numbers 
positive. For example, 


ABS(6.8) will be 6.8 
and 


ABS(—6.8) will be 6.8 


SGN(X) 
SGN returns the SiGN of the number or variable X. If the number or variable is positive the 


result will be 1. If negative, the result, —1. If X is zero the sign is neither + or — so the result 
will be 0. 


Note the ABS(X)= SGN(X)*X. 


Logarithms 

Logarithms to base 10, LOG 

In the first part of this chapter we saw the way large and small numbers are represented in the 
ORIC. We saw that a number can be represented in a way that connects it with powers of ten. 
This idea can be taken a stage further, so that a number can be expressed purely in terms of a 


power of ten. If we link this idea with the ideas of squares and square roots and say, ‘to what 
power must we raise ten to get a specific number’. 
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This is the idea behind LOG, or logarithms. In fact we have already seen a couple of LOGS! 
The power ten must be raised to get 100 is two as, 10*10 = 100. Therefore the LOG of 100 is 2. 

The BASIC statement which the ORIC uses to produce these powers is the LOG(X) state- 
ment. X is the number which we want to find the LOG of. The result will be the power which ten 
must be raised to produce X. Try these two lines. 


PRINT LOG(7) 


The answer will be 0.84509804. If we now ask the ORIC what number is produced when ten is 
raised to this power we should get 7. 


PRINT 10170.84509804 

The result 7 will be displayed. We can now see that 
10t(LOG(X))=X 

Try 
PRINT 10*(LOG(7)) 


The answer will be 7 
If an attempt is made to find the LOG of a negative number an ‘“?ILLEGAL QUANTITY 
ERROR’ will be produced. 


Logarithms to the base e, LN 
We have just seen that numbers can be represented in terms of powers of ten. If we can use 10, 
why not any number? Well, the answer to this is that we can. In fact we can use any number we 
like, 3, 8, 27, 63, or anything, provided it is greater than zero. A number which crops up in many 
physical systems is 2.7182818281.... The reason for this is well outside the scope of this book, 
but we can look at how to use the logarithms (written LN) produced when numbers are expressed 
in terms of this number, which is known to mathematicians as ‘e’. 

To distinguish between LOGs using 10 and logarithms using e, we write the latter as LN(X). 
Writing this more clearly, 


LOG(7)=0.845098 
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is the LOG to the ‘base 10’ of the number 7, and 
LN(7)=1.945910 


is the log to the ‘base e’ of the number 7. 
In the same way as we saw using LOGs 


etX=N 

Therefore LN(N)=X. For example, 
PRINT LN(7) 
1,94591015 


The reverse process of this, that is, the value obtained by raising e to the power given by the 
LN command is known as the ‘EXPonential’ of this number. This command is given to the ORIC 
using the EXP(N) statement. Therefore 


PRINT EXP(1.94591015) 
will give the result 
7 


From this we can see that X=EXP(LN(X)) provided X is greater than zero. 
Note that any attempt to find the LN of a negative number will give an ‘ ?ILLEGAL QUAN- 
TITY ERROR’. 


Conversion of LOGs from one base to another 
If we have the LOG of a number and we need it to the base e, or any other base for that matter, 
the following formula is very useful: 


LOG<base B>(X)=(LN(X))/(LN(B)) 
Using this to find the LOG to the base 10 of 7 using just logs to the base e. 
LOG(7)=(LN(7))/LN(10)) = 0.84509804 
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PI and Radians 


In this section we’ll look at circles and angles. 
The number PI is available directly on the ORIC by means of the ‘PI’ statement. This will 
give the value of PI to eight decimal places. 


PRINT PI 


will return 


3.14159265 


Remember, therefore, that the letter group, PI, must not be used as a variable name, or occur 
within a variable name in BASIC programs. 


Circles, Angles and Radians 
The unit the ORIC uses for measuring angles is the ‘radian’. For those who have not come across 
this unit for measuring angles there is a brief explanation below. 

We know that the diameter of a circle is twice its radius. Suppose we cut a slice out of the 
circle, removing from the circumference a length equal to the radius of the circle. We know that 
the number of times the radius will go into the circumference is 


_ (circumference) _ (circumference) 
diameter - 2* radius 
so that 
(circumference) 
(2*PI) 


Since the complete circle is made up of 360 degrees, the angle of the slice cut out is 


radius = 


0 
= 57.2957796 degrees 
2*PI 


This is called one ‘radian’. 
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Fig. 7 


Therefore, one radian is the angle produced when a slice is cut from a circle removing the 
length of the radius from the circumference of a circle. 

As mentioned above, this is the unit which the ORIC uses in all its measurements of angles. 
However, it is easy to convert from angles measured in radians to ones measured in degrees. Re- 
member that there are 2*PI radians round the circle. Therefore there are 2*PI radians in 360 
degrees. From this we can see that there are 


2*PI 


radians in one degree. 


Common angles in radians 
1 degree = (2*PI)/360 = 0.01745 radians; 
45 degrees = (2*PI)/(360/45) = PI/4 radians; 
90 degrees = (2*PI)/(360/90) = PI/2 radians; 
180 degrees = (2*PI)/(360/180) = PI radians; 
and 
1 radian = (360)/(2*PI) = 57,296 degrees. 
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Trigonometry 


Trigonometry deals with right-angled triangles and their angles. 

If we have two triangles with the same angles between their sides, but different length sides, 
one must be a scaled version of the other (see Fig. 8). Because the two triangles are scaled versions 
of each other, the ratios of sides divided on one triangle will be the same as the ratio of the same 
two sides divided on the other. In fact the value of this ratio will change as the angles in the 
triangles change, but for a given angle the ratio will be the same ratios for different angles. There 
is, unfortunately, a restriction to this table, as one of the angles which make up the triangle 
must be 90 degrees. 


Fig. 8 


In all there are six ratios of sides in a triangle, but a little thought will show that we only 
actually have to be able to calculate three of them as the remaining three can be obtained from 
these. Let’s now look at the three available on the ORIC. 


(i) TAN(X) 


opposite 


= TAN(X) (where X is in radians) 
adjacent 
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The ratio of the side opposite the angle in question divided by the angle adjacent to this angle is 
known as the ‘TANgent’ of the angle. This is available on the ORIC by means of the TAN(X) 
statement. X must be the angle measured in radians (see Fig. 9). 


Opposite 


Adjacent 
Fig. 9 
The range of TAN(X) as X varies between 0 degrees and 90 degrees, is 0 to infinity. We can 
write this as: 


X 0 — 90 degrees, TAN(X) 0 — infinity. 


(ii) SIN(X) 


opposite 
————- = SIN(X) (where X is in radian) hypotenuse 
hypotenuse 


The ratio of the side opposite to the angle in question to the hypotenuse (or side opposite the 
right angle) (see Fig. 10). The ratio is available on the ORIC by means of the SIN(X) statement. 
Again, X is the value of the angle measured in radians. 


as X — 90 degrees SIN(X) 0 — 1 
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Hypotenuse 
Opposite 
Fig. 10 
(iii) COSINE(X) 
adjacent ; ; 
————— = COS(X) (where X is M radians) 
hypotenuse 


Hypotenuse 


Adjacent 


Fig. 11 
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This ratio is available on the ORIC using the COS(X) statement (see Fig. 11). X is the value of the 
angle measured in radians. 


as X 0 — 90 degrees COS(X) 1 — 0 


The remaining three ratios are listed below together with their relationships to the three given 
above. They are not available directly on the ORIC, but can be found from the others. Thus, for 
example, if we want to know the value of COT(PI/4), we must first calculate the value of 
TAN(PI/4), and then work out the reciprocal of this. This is done by the short program below. 


10 INPUT “Angle”:X 

20 CALC=TAN(X) 

30 COT=1/CALC 

40 PRINT “The COTANGENT of “ X ” is” COT 


Now the remaining ratios: 


adjacent 
— = COTANGENT(X) = 1/(TAN(X)) 

opposite 

hypotenuse 

——— = COSECANT(X) = 1/(COS(X)) 
opposite 

hypotenuse 

———— _ = SECANT(X) = 1/(SIN(X)) 
adjacent 


Example 
To show how these ratios can be used we’ll look at a short example. 

The problem is to find the height of a tower if we know that it casts a shadow 120 ft long 
when the sun makes an angle of 40 degrees with the tower. 

First we'll draw what’s going on (see Fig. 12). Fig 13 shows this as a triangle. 
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x l ly 
20: 
a . 
ia) 
ia) 
120 ft —————_—_—_——_ Fig. 12 
AH 


120 Fig 13 
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Therefore we know that the TANgent of 40 degrees equals the height of the tower divided 
by the length of the shadow cast, or: 


TAN(40 degrees) = (H)/(120) 


Therefore the height of the tower is 120*(TAN(40 degrees)). To convert 40 degrees into radians 
we use the formula given above 


40 degrees = 40*(2*PI/360) radians. 
Writing this as a short program, 


10 REM height of tower problem. 

20 READ SHADOW, ANGLE 

30 RAD=(ANGLE*(2*PI))/360 

40 HEIGHT=SHADOW*(TAN(RAD)) 

50 PRINT “The tower is ” HEIGHT ” ft tall.” 
60 DATA 120,40 

70 END 


The inverse process, finding the angle from the ratio, for all the ratios can be done in terms of 
the inverse TAN. The proof of this is outside the scope of this book so the results only will be 
given here. The command for inverse TANgent on the ORIC is ATN(N), where N is the value of 
the TANgent of the angle to be found. The answer given will be the angle measured in radians. 


TAN(X) = N 
ATN(N) = X 

To convert the result to degrees, multiply by (360/2*PI) 
Inverse TAN = ATN(N) 
Inverse SIN = ATN(N/SQR(—N*N+1) 
Inverse COS = —ATN(N/SQR(—N*N+1))+1.5708 
Inverse COT = —ATN(N)+1 .5708 


Defining Functions 
If a calculation is going to be performed a number of times it can be useful to define it as a func- 
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tion. What this does is to tell the ORIC what the calculation is, together with the name of the 
function. Whenever this calculation is needed, the function can be used. 
Defining one of the above as a function, 
10 DEF FN ASN(N)=ATN(N/SQR(—N*N+1) 
This DEFines the name ASN to be a FunctioN which calculates the inverse SINe of the value 
given in the variable N. This can be used in a program as shown below. 
50 A=FN ASN(0.5) 


Here, the variable A will be given the angle whose SIN is 0.5. 
The result of a function must be numeric. It cannot be a string. 


Sound 
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In this chapter we are going to look at the ORIC’s sound capabilities. We’ll start by seeing how 
to use the sound commands built directly into BASIC, and then go on to examine the SOUND, 
MUSIC and PLAY commands which allow us to play tunes on the machine. 


Commands built into BASIC 
There are four commands built into ORIC BASIC which can be used to produce sound Directly. 
These are: PING, ZAP, SHOOT and EXPLODE. We have already seen these used in the Direct 
mode in Chapter 1. In this chapter we shall see how to include them in programs. 

Let’s see how this is done. 


10 PING 

20 WAIT 50 
30 ZAP 

40 WAIT 50 
50 SHOOT 
60 WAIT 50 
70 EXPLODE 


The WAIT statements in lines 20, 40 and 60 are needed to give the ORIC time to finish producing 
the first sound before starting the next. To recapitulate the number following WAIT is the number 
of hundredths of a second that the ORIC must pause. Therefore, WAIT 100 will make the machine 
pause for one second. This will be plenty of time for the sound to finish. This facility will be used 
later in this chapter for playing tunes. 

These commands can be used in longer games programs as we’ll see. This program wili make a 
‘PING’ when the ‘ball’ hits one wall and EXPLODE in the other. 


10 REM Sound Demo 

20 CLS 

30 X=1:Y=5:INC=1 

40 REPEAT 

40 : X1=X 

50% IF X>36 THEN INC=—INC:PING 
50: PLOT X1,Y,“ ” 

90: PLOT X,Y;‘**” 
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100 UNTIL X<1 
110 EXPLODE 
120 END 


Playing music on the ORIC 
Before looking at the sound commands in detail it would be useful for us to get an overview of 
the ORIC’s sound capabilities. We will also need to know something about sound in general. 

The ORIC has three tone oscillators and one noise oscillator. The tone oscillators are used to 
produce notes and the noise oscillator produces a ‘hissing’ sound. This means that the computer 
can produce three independent notes at once, together with the noise, or ‘hissing’ sound which is 
useful for sound effects in games programs. 

The oscillators can be used either by themselves or as combinations. The range of notes avail- 
able is seven octaves. We also have control over the overall volume of the notes produced. Re- 
capping briefly, we can select oscillators, notes for these oscillators, and the volume at which the 
notes are to be played. There is one more property of sound that we can control, the sound’s 
envelope. The envelope of sound is what makes notes of the same pitch sound different when 
they are played on different instruments. On some instruments notes start quickly and die away 
quickly, while on others notes start slowly and die away quickly. Many produce a combination 
of the two. 

The ORIC allows you to control how the note is played by giving the user control over the 
envelope of the note being played. As the name implies, this forms an envelope around the pure 
note, modifying it. There are seven possible envelopes accessable from BASIC in the ORIC. 

Having seen what sound is, we’ll now look at the commands the ORIC uses to control it. 
The first command which we’ll look at is the SOUND command. 


The SOUND statement 

The SOUND statement is used to produce pure tones on specified oscillators, at a specified vol- 
ume, with a pitch set by the statement. This pitch need not be a note of a standard scale, as found 
on a piano for example, but can be any pitched sound in the range of approximately 100 Hz, to 
approximately 10 kHz. The pitch of a given note is set by the frequency of the wave that produces 
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it. This is shown in Fig. 14. The closer the peaks are together, and therefore the shorter the time 
between them, the higher in pitch the note sounds. The time between these peaks is known as 
the ‘period’ of the note. Therefore, the shorter the period, the higher the pitch of the note. 


Fig. 14 — Diagram of note waveform. 


The SOUND command controls the pitch of the note produced by means of its period. 
Clearly, this is not the easiest way to obtain notes which are part of a tune, but some useful sound 
effects can be produced quite easily. This is shown by the following examples. The first, ‘UFO 
Take-off? gives a note with increasing pitch, while the second produces a siren. Notice that although 
both programs are similar, they give different results. 


10 REM UFO Take-off 

20 FOR I= 500 TO 50 STEP —10 
30: SOUND 1,I,7 

40: PLAY 1,0,1,1 

50: WAIT 5 

60: PLAY 0,0,0,0 

70 NEXT 
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10 REM Siren 
20 FORJ=1TO3 
30: FOR I = 500 TO 50 STEP —10 


40: SOUND 1,1,7 
50: PLAY 1,0,1,1 
60: WAIT 2 

70: PLAY 0,0,0,0 
80: NEXT I 

90: FOR I = 50 TO 500 STEP 10 
100: SOUND 1,1,7 
110: PLAY 1,0,1,1 
120: WAIT 2 

130: PLAY 0,0,0,0 
140: NEXTI 

150 NEXT J 


The format for the SOUND command is: 
SOUND <Channel> ,<Period> ,<volume> 
The channel numbers are . 


1 — Oscillator 1 on. 
2 — Oscillator 2 on. 
3 — Oscillator 3 on. 
4 — Oscillator 1 on with noise on. 
5 — Oscillator 2 on with noise on. 
6 — Oscillator 3 on with noise on. 


The period is an integer number in the range approximately 10 to approximately 5000. These 
figures are set by the ability of the speaker sounding the note to respond to different frequencies. 
The highest note is with a value of 10 and the lowest with a value of 5000. 

The range for the volume part of the command is 0 to 15, with 15 being maximum volume. 
5 to 7 is usually sufficient for most uses. If 0 is chosen here, the volume will be set by the PLAY 
command. We’ll look at this in a moment. 
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The PLAYs included in these programs are needed to turn the note SOUNDed off as the 
SOUND statement cannot do this. If you stop a sound program using CTRL—C while any of the 
oscillators are still on, PLAY 0,0,0,0 used in the Direct mode will turn them off. 


The MUSIC statement 

The MUSIC command is the most useful one we have available for playing tunes. It allows a pro- 
gram to control the exact note in the well-tempered scale to be played, and which channel, or 
channels it is to be played by. The format for the command is as follows. 


MUSIC <Channel>,<Octave>,<Note>,<Volume> 


The channel number sets which tone oscillator is to be used. This can be 1, 2 or 3. The noise 
channel cannot be specified as it does not produce notes. 

‘Octave’ specifies which of the seven octaves available the note played is to be in. The lowest 
octave is 0, and the highest 6. 

‘Note’ specifies which note is to be played and, unlike the SOUND command, the number 
given here will select a pre-tuned musical note. These are given below. 


ae 6. 
2 — D*yjc# 
3 =D 
4. EP/p* 
5 =F 
6 =F 
7: 2G°yE* 
ge 
9 = A>/G* 
10—A 
11 — B°/A* 
28 


Middle C can be played by the command: MUSIC 1,3,1,5. As with the SOUND statement, 
if the volume is chosen to be zero, the PLAY command will start the note given here. We'll see this 
in a moment. 


SOUND 101 


First let’s hear the kind of sounds that the ORIC can produce. The program given here sets the 
numbers on the ORIC’s keyboard up as a music keyboard. 1 is the lowest note, and 0 the highest. 
The volume can be increased and decreased using the cursor up and down keys. The octave which 
the note played is in can be changed using the cursor left and right keys. Cursor right increases the 
note played one octave and cursor left decreases it by one. If any other key except RETURN is 
used there will be no sound. 

RETURN turns the current note off and causes the program to finish. The volume is set 
initially to zero. 

This program works by using the VALue given by the number keys to give the note to be used 
by a MUSIC statement. The initial volume is one and the initial octave, octave zero (the lowest). 
Lines 100 and 110 check for octave changes up or down, leaving out of range checking to line 150. 
A similar process is carried out for volume in lines 120 and 130, with volume out of range checking 
in line 140. 

The oscillator used is turned on in line 160. Line 170 is needed to make the ORIC sound 
notes many times. 

Now the program. 


5 REM ORIC Synth. 

10 O=0:V=1 

20 REPEAT 

30: GETA$ 

40: PLAY 0,0,0,0 

50: N=VAL(A$) 

60: IF N=0 THEN N=10 

70: IF ASC(A$)>65 THEN 180 
80: IF A$=“—” THEN N=11 

90: IF A$=“=” THEN N=12 

100: IF A$=CHR$(8) THEN O=O-1 
110: IF AS=CHR$(9) THEN O=O+1 
120: IF A$=CHR$(10) THEN V=V—1 
130: IF AS=CHR$(11) THEN V=V+1 
140: IF V<0 OR V>15 THEN V=0 
150: IF O<0 OR O>6 THEN O=0 
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160: | MUSIC 1,0.N,V 
170: PLAY 1,1,1,1 
100 UNTIL A$=CHR$(13) 
190 PLAY 0,0,0,0 


The PLAY statement 
This is the last of the sound statements to be examined, and is usually used in conjunction with 
either the SOUND statement or the MUSIC statement. If the volume is set to zero in either of 
these statements, control of sound production is handed over to the PLAY statement. This gives 
the user control of the sound’s envelope. This allows more interesting results to be obtained. Let’s 
look at what the PLAY statement can do. 

The PLAY statement controls which oscillators are active and which envelope shape is used to 
shape the sound produced by them. All oscillators must use the same envelope though. 

Different notes are to be set up on each oscillator using the MUSIC statement so that they 
can all be turned on together producing chords. 

The form of the PLAY statement is: 


PLAY <Channel>,<Noise>,<Envelope>,<Envelope Period> 


Choices of oscillator are; 


— All oscillators off. 

— Oscillator 1 on only. 

— Oscillator 2 on only. 

— Oscillators 1 and 2 on. 
Oscillator 3 on only. 

— Oscillators 1 and 3 on. 
— Oscillators 2 and 3 on. 
— Oscillators 1,2 and 3 on. 


NUDNABRWNHO 
| 


The noise section selects which oscillator, or oscillators, noise is to be mixed with. This acts 
in the same way as the table above. 
0 — Noise off. 
1 — Noise and oscillator 1. 
2 — Noise and oscillator 2. 
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— Noise and oscillators 1 and 2. 
Noise and oscillator 3. 
— Noise and oscillators 1 and 3. 
— Noise and oscillators 2 and 3. 
7 — Noise and oscillators 1,2 and 3. 

There are seven possible envelope shapes. This part of the PLAY statement together with the 
final, Envelope Period part, determines the way in which the pure tone produced by the oscilla- 
tors is to be shaped. Before discussing these in detail it might be easier to get a ‘feel’ for the way in 
which the envelopes work by looking and RUNning a short program. 


10 FOR E=1TO7 


Dnt WwW 
| 


20: MUSIC 1,3,1,0 
30: PLAY 1,0,E,500 
40: PLAY 0,0,0,0 
50 NEXTE 


This short program demonstrates each of the envelope shapes available. Although drawings cannot 
show completely what is going on, they can help you remember the envelope shapes available. 
They are shown in Fig. 15. 


Time 


Fig. 15 — Envelopes available on the ORIC (continued next page) 
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Fig. 15 (continued) — Envelopes available on the ORIC. 
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The final portion of the PLAY command controls the envelope period of the sound produced. 
This is similar to the period part of the SOUND command except that it operates on the note 
produced to control the speed at which this note starts and finishes. The technical terms are 
‘attack’ and ‘decay’ respectively. The attack determines the rate at which the note starts and the 
decay the rate at which it finishes. A fast attack produces a note which starts quickly, like a guitar 
for example, while a slow decay produces one which will die away slowly. An example of this is 
the sound made by a piano. On the ORIC both of these properties are tied together in the value 
given to the envelope period. The range for this part of the statement is from 0 to 32767. A value 
of 5000 will give a note sounding for approximately two seconds using envelope shape 2. While 
a value of 30000 produces one which lasts about fifteen seconds using the same envelope shape. 


Tunes 
Finally in this chapter we’ll see how tunes can be played on the ORIC. The first example uses only 
a single oscillator. The second plays the same tune with harmonies using all three tone oscillators. 
This section will also show how the WAIT statement is used to control the tempo of the tune 
played. WAIT is used to set both the duration of the note and the length of the silence between 
notes, 

The actual tune chosen is a well-known traditional one. The first program will play this tune 
using only oscillator two. The second will add harmony using oscillators one and three as well. 
The programs work as follows: 

All the information needed for octave, note duration and pause for each note is stored in 
DATA statements — one for each note. Lines 20 and 90 set a loop up which will repeat eight times 
- the number of notes in the tune. Line 30 READs the DATA and assigns it to its respective 
variables. After this has been done the oscillator is set up ready to be turned on by the PLAY 
statement in line 50. The length the note PLAYed is determined by the WAIT of line 60. This 
note is then turned off by line 70 and the required pause set by line 80. The process is then 
repeated until all the notes have been played. 

To show this more clearly the flowchart of the program is given in Fig. 16. 
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10 REM Tune using single oscillator 
20 FORI=1TO8 


30: READ N,O,DP 

40: MUSIC 2,0,N,0 

50: PLAY 2,0,2,2000 

60: WAIT D 

70: PLAY 0,0,0,0 

80: WAIT P 

90 NEXTI 

100 REM Data for tune stored as 


110 
120 
130 
140 
150 
160 
170 
180 
190 


REM <Note>,<Octave>,<Duration>,<Pause> 
DATA 3,3,45,25 

DATA 3,3,25,10 

DATA 10,3,50,10 

DATA 10,3,25,15 

DATA 5,3,25,10 

DATA 6,3,20,10 

DATA 5,5,20,5 

DATA 3,3,75,10 


START 


SET UP 
OSCILLATOR 


WAIT 
DURATION OF 
NOTE & TURN 
NOTE OFF 


WAIT 
DURATION OF 
SILENCE 
BETWEEN 
NOTES 


FINISH 


Fig. 16 — Flowchart for Tune 1. 
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The second program is similar to the first except that the DATA for the harmony notes must 
also be stored. The approach is the same, but each of the oscillators has its data set up separately. 
Obviously, this gives us more DATA for each note period. The three oscillators are set up in lines 
40, 50 and 60. After this has been done the procedure is the same as before. 

Now the program. 


10 REM Tune using three oscillators 
20 FOR I=1TO8 


30: 


READ N1,01,N2,02,N3,03,D,P 
MUSIC 1,01,N1,0 
MUSIC 2,02,N2,0 
MUSIC 3,03,N3,0 
PLAY 7,0,2,2000 
WAIT D 
PLAY 0,0,0,0 
WAIT P 
NEXT I 
REM Tune data stored as. . 
REM N1,01,N2,02,N3,03,D,P 
DATA 2,10,3,3,4,3,45,25 
DATA 2,10,3,3,4,3,25,10 
DATA 2,5 ,10,3,4,6,50,10 
DATA 2,5,10,3,4,6,25 15 
DATA 2,12,5 ,3,4,5,25,10 
DATA 3,1,6,3,4,5,20,10 
DATA 2,12,5,3,4,3,20,5 
DATA 2,10,3,3,4,3,75,10 


Graphics 
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Introduction 
In this chapter we will look at graphics on the ORIC. We shall see the kind of screen displays the 
machine can produce. 

The chapter will be split into two sections. In the first we shall look at what can be done 
using the text screen, and in the second what can be done using the ORIC’s HI-RESOLUTION 
screen. 


LORES Graphics 

The normal way the machine displays information on the screen is by using letters and numbers. 
Although we can do much using these, the ORIC has greater capabilities. It can for example 
produce colourful patterns, and can display characters designed by the user. Before we see how to 
design these we should see how normal letters and numbers are displayed. These are more com- 
monly known as TEXT. As we already know, each character has a numbered (ASCII) code. These 
numbers are very important in the way the ORIC displays characters on the screen. The way it 
does this is as follows. 


Displaying characters on the screen 

The ORIC has an area of memory which is used to store the ASCII codes for the characters to be 
displayed on the screen. We saw in Chapter 3 that different parts of the ORIC’s memory are used 
for specific functions. For example, the area of memory from address 48000 to 49120 is used for 
the screen. If you enter the statement 


POKE 48000,65 


a letter ‘A’ will appear in the top left corner of the screen. 
More characters can be displayed using the following program. This will POKE each of the 
ORIC’s normal characters into the first 93 screen positions. 


10 REM CHARACTERS 
20 FOR 1=0 TO 93 

30: POKE 48000+I,I 
40 NEXTI 

50 END 
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We can now see more clearly exactly what the PRINT statement does. It first works out the 
ASCII codes for the characters to be PRINTed, and then calculates the next free place on the 
screen and puts these codes in the required memory addresses. 

We are now ready to see how characters themselves are made up. We know how the ORIC 
decides what to display and where to display it. If you look carefully at the screen you can see 
that characters are made up out of dots. In fact, the ORIC uses a matrix made up of six dots 
horizontally by eight dots vertically. This is shown in Fig. 17. 
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Make-up of a single character. 

The area of memory allocated to the screen is used by the ORIC as a pointer to another area 
of memory which contains the dot data for each character which the ORIC can display. For 
obvious reasons a character is not stored in the machine’s normal BASIC (RAM) memory, but in 
memory which does not lose its contents when the power is switched off. This, however, is not 
used directly when characters are displayed on the screen. In fact, what happens when the machine 
is first switched on is that the character data is copied from the ORIC’s permanent (ROM) memory 
into the ORIC’S normal (RAM) memory. The reason for this is to allow the user to change the 
character data which is displayed, thus producing characters defined by the user. These are nor- 
mally known as ‘user defined graphics’. 

In addition to the set of normal characters, the ORIC has another set. These are known as 
the ‘alternative’ character set and can be displayed using the command LORES 1. This statement 
changes the area from which the character dot data is obtained from the normal set to alternative 
set. 

The name LORES comes from the fact that characters are referred to in this mode, and is, 
therefore LO-RESolution. There are 40 positions horizontally, and 24 vertically. 

The whole alternative character set can be seen using the following program. 


10 REM ALTERNATIVE CHARS. 
20 LORES 1 

30 FOR I= 32 TO 125 

40: PRINT CHRS(I) 

50 NEXT I 

60 END 


You can see from this that the alternative character set works in exactly the same way as the 
normal one, except that the dot data is different. The same ASCII codes are used. 
The normal character set can be restored by using the command LORES 0. 


LORES 1 switches to the alternative character set. 
LORES 0 switches to the normal character set. 


PLOTting characters on the screen 
Now that we have seen what must be done to put characters on the screen in specific places, we 
can look at the commands ORIC BASIC has available to do this. 
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In order to make these commands easier to use the screen is numbered horizontally and verti- 
cally. There are 39 positions horizontally and 24 positions vertically. Therefore a character in the 
middle of the screen is at position 20 horizontally and 12 vertically. This is more normally written 
as coordinate 20,12. Throughout this chapter all horizontal coordinates will be represented by the 
letter X and vertical ones by the letter Y. A diagram of this is given in Fig. 18. 


Reserved column 


Fig. 18 — Screen coordinates for LORES screen 
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The first command we’ll look at is the PLOT command. This will display a character string 
at a set of coordinates given in the command. The format is as follows. 


PLOT X,Y,‘ < character string >” 
For example 
PLOT 10,20,“HERE” 


will PLOT the message ‘Here’ beginning at screen coordinates 10,20. If you try to PLOT a message 
outside the range of coordinates on the screen an ‘?0UT OF RANGE’ error will be produced. 
Try this example. 


10 CLS 

20 FOR I=0 TO 20 

30: PLOT I,I,““HELLO” 
40 NEXT I 

50 END 


To accompany this command there is another, which returns the ASCII code for the character 
present at a given screen position. This is the SCRN(X,Y) command. Using the example above: 


10 C = SCRN(10,20) 
20 PRINT C 


Will give the answer 72. This is the ASCII code for capital H, the first character of ‘HELLO’. 

We are now in a position to write a program to move a ball round the screen. This is done as 
follows. Using the PLOT command by incrementing the X and Y coordinates a ‘*’ is displayed on 
the screen. This forms the ‘ball’ which is to be bounced round the screen. Of course there must be 
a check to make sure the ball does not go off the screen. This is done in lines 60 and 70 for the 
X and Y directions respectively. The amount the ball is moved in the X direction is set up IXC and 
the amount in the Y by IYC. If the ball would be moved off the screen next time round, this 
amount is made negative so that the ball will now move in the opposite direction. It will, there- 
fore, bounce off the edges of the screen. Line 90 is needed to remove the ball from its old position 
before moving it to a new one using the old coordinates stored in X1 and Y1. 

To stop this program type CTRL-C. 
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Now the program. 


10 REM Ball bounce 

20 X=1:Y=1 

30 IXC=1:IYC=1 

40 CLS 

50: X1=X:Y1=Y 

60: IF X<1 OR X>37 THEN IXC=—IXC 
70: IF Y<1 OR Y>23 THEN IYC=—IYC 
80:  X=X+IXC:Y=Y+IYC 

90: PLOT X1,Y1,“ ” 


100: PLOT X,Y,“*” 


110 GOTO SO 


This program can be modified to a tennis game by using another PLOT statement, driven from the 
keyboard to provide bats. The SCRN command can be used to check whether a bat and the ball 
are at the same screen position. If so the ball must change direction. If the ball reaches the edge of 
the screen it is out of play and points allocated. The program is given below. 


90 


REM TENNIS GAME 

X=37:Y=1 

IXC=—1:TYC=1 

REM Check bat & ball positions. 

IF SCRN(5,YB)=““*” THEN IXC=—IXC 
IF X=1 THEN 300 

IF X>37 THEN IXC=—IXC 

IF Y<1 OR Y>23 THEN IYC=—IYC 
X=X+IXC:Y+IYC 

X1=X:Y1=Y 


100 PLOT X1,Y1,“ ” 
110 PLOT X,Y,““*” 
115 REM Move Bat 
120 Y2=YB 

130 A$=KEY$ 
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140 IF A$<>CHR$(11) OR A$<>CHR$(10) THEN 
150 IF A$=CHR$(11) THEN 180 

160 IF A$=CHR$(10) THEN 210 

170 GOTO 240 

175 REM Move Bat Up. 

180 IF YB=0 THEN 240 

190 YB=YB-1 

200 GOTO 240 

210 REM Move Bat Down. 

220 IF YB=23 THEN 240 

230 YB=YB+1 

240 PLOT 5,Y2,“ ” 

250 PLOT S,YB,“‘I” 

260 GOTO 35 

300 REM New Game? 

310 CLS 

320 PLOT 5,10,“ Another Game? (Y/N)” 
330 GET A$ 

340 IF A$=“Y” THEN 10 

350 END 


Creating your own characters 

We saw earlier in this chapter how the ORIC displays characters on the screen. In this section 
we’ll see how new characters can be created. We know that displayed characters are made up 
from a series of dots, and that these patterns of dots are stored in the ORIC’s RAM memory. 
It is, therefore, possible to change these dot patterns, and so create new characters. Of course, 
if this is done, we will have to replace an existing character with the new one. If the letter A is 
used, whenever A is to be displayed, the new character will appear. By choosing characters that 
would not be used in a particular program this need not be a problem. 

How is this done? Each screen character has a portion of memory allocated to it to store 
its dot pattern. This is stored as a series of ones and zeros. A one produces a lit dot on the screen, 
and a zero an unlit dot. The area where the letter A is stored is from address 46600 to 46608. 
From Fig. 19 this letter is easily recognized. 
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00000000 
00001000 
00010100 
00100010 
00111110 
00100010 
00100010 


00000000 


Fig. 19 — The letter A stored in memory. 


Using the POKE command, it is possible to change the sequence of ones and zeros so that a 
new character is created. This will of course have the same ASCII code as the letter it replaces, and 
will always be displayed in this character’s place. If, for example, the letter A is redefined, the 
ORIC will just think that the shape given to the letter A has been changed. 

What we need is a program which can be used to INPUT a new set of ones and zeros, work 
out where they are to go in memory, and put them there. It would also be helpful if the new 
characters built up could be CSAVEd on tape so that they can be used again at a future time. 
This is necessary because the normal character set will be set up each time the machine is switched 
on. 

A program to do this is given below. The program first asks for the character which is to be 
replaced. Using this character’s ASCII code, it then calculates the starting address for this charac- 
ter’s data. Next the dot data for each row of the new character is INPUT. When each row is 
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entered into the program as a series of ones and zeros. A one will produce a dot in the final charac- 
ter, and a zero a space. The program looks at the ones and zeros given, calculates the number 
which needs to be POKEd into memory, and then puts it there. The program will also CSAVE and 
CLOAD character sets to and from tape. To CLOAD a character set already made up, first CLOAD 
this program and RUN it. Next load the new character set from tape. Then type NEW. This will 
remove this program from memory so that the program which uses the new characters can be 
CLOADed. The new character set will remain untouched by this. Remember though, that any 
letters used in this program’s name that have been changed will stay changed. This will not cause 
any problems to CLOAD, since it uses the letters’ ASCII codes to find programs. 

Another alternative is to include the data to change characters in the program which uses 
them by means of DATA statements. This DATA is listed by the ‘chargen’ program after a new 
character has been defined. This is the method used by ‘blackjack’. 

The chargen program is now LISTed below. 


REST) US iiguegucbee pie auteur 

1 

PRT T GERI TSPi ed Deo Pre DMT bre 
re CMT IMT 

PRIM TSP Le PR TAT teed: sud lade lie | 
PRIM T oP RAT sre DAT 

PRIM T" Load oobigue gugeh -Fromar cb ayoes i a 
PRIA se DT 


‘her gage ack 


aa Sse otiegye greek che chvayess . 
FR TAT a Pte DT 


PRIITMT' Fe 
PRT T a PR DAT 

PRIM T thud ct ah 
PRIM T a PR IAT oer INT 


INPUT "Gebion chosen? Cla S49" srt 


dee ere on beisues gun hp 


TROL OR Pb TIES awed Fl 
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THEN Feo 
THEM it 
@ THEN : 


mPa capeck cars 


PRINT 


oe Os kee pedkee-Fodiesed oe Pre 


PRIMT" TMPLUT Rd "9 T 
THPLUT Bee 


THEN 3 


2 POKE BRISE4+ 1M 
: HEMT 

488 PRINT EPR IAT FP 
BF OR Tos @ TO 7 
i PR IAT! Fidel 


" YEPISE + | 


F Pre TT RSE Pa 
oc 


fe PR TAT ae IMT 
ee FRITH T  " yeszes gute beget chen muah eae 
, Listing continued next page 
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IF FESS THEH 1e ELSE 47a 


REM Saae oecbior 

a = 

PRIMT sPR IMT 

TMPUT gue steed rianikvege ' p Etok 

(hate: CHAR "EE 

PRIHT sPRIMT 

PRINT "Furt tayoe dr cases poser: | 
PRINT sPR IMT 

PRIAT “Arie gecb ocho rence, " 
PRIMT sPR IMT 

PRINT "Presta auie bee aubrey react ' 

GET FE 

CSAVE Cob. ABA. ER BESS 

TLS 
PLOT 25. "Now chur casgethe off, | 
WAIT 2G sGoTo 1a 


FET eh suo omyeeb iin. 

i 

PRIM) ser Dh T 

IMPLI) "ile: greek rian Uo Bk 
(Bes UHR. EE 

FR IMT ae Re LAT 

PRT" Pleaidrmd chayees 

PRET AT o" Precgarss guise 
CHET AGE 

LOA CE. AE SE et. ERE 
MEL 
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HIRES Graphics 

In this section we shall see what the ORIC’s hi-resolution graphics facilities can do. The term 
hi-resolution refers to the ability to turn individual dots on and off over the entire screen. A way 
to think of this is as if the whole screen has been filled with characters which can be redefined 
from within a program. There are, therefore, 40*6 positions horizontally, and 8*25 vertically. 
This gives us a matrix 240 by 200. This is drawn out in Fig. 20. 


3 text lines 


Fig. 20 — Screen numbering in HIRES mode. 
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Clearly, to do this the ORIC must rearrange its screen display. The computer must, therefore 
be told when HIRESolution graphics are required. This is done by using the command: HIRES. 
When this statement is encountered, the screen will be cleared and set up for the HIRES graphics 
mode. There are, however, three lines left at the bottom of the screen for normal character display. 

The HIRES mode can be turned off, and the screen display returned to normal character, 
or text, mode by means of the TEXT command. This statement will clear the HIRES display, and 
also clear the normal, TEXT, display. 

The HIRES mode has its own set of commands. We’ll look at these now. 

In the same way that there is a cursor in the TEXT mode, there is one in the HIRES mode. 
This cursor is, though, much smaller, being made up of one dot on the screen. This cursor can be 
controlled and moved about using the first command which we’ll look at, the CURSET command. 

CURSET is used to move the cursor to a pair of screen coordinates given in the command. It 
can, however, do more than just this since control is given over what the cursor does when it gets 
to these coordinates. It can be displayed in either of several ways. First it can be displayed in the 
INK colour, or second as the PAPER colour. The third alternative is that it can be turned off, or 
not displayed at all. Thus, the cursor is simply moved to a new position. 

The format for CURSET is given below. 


CURSET X,Y,C where C is the display code. 
X and Y are the new coordinates as given in Fig. 20. The display codes are 


0 — Paper colour. 
1 — Ink colour 

2 — Invert colours. 
3 — Don’t display. 


The next command to look at is the CIRCLE command. This will draw a circle, with a given 
radius. Its centre will be at the current cursor position. The format for this statement is. 


CIRCLE < Radius > , < Paper/ink colour > 


The radius of the circle must be such that the ORIC will not try and draw any part of the 
circle off the screen. If this is attempted, an error will be produced. 

A short program using the two HIRES commands we have seen so far is given below. Although 
it is fairly short, it produces a very pleasing effect. 
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10 REM Circles. 

20 HIRES 

30 FOR I= 15 TO 200 STEP 10 
40: CURSET I,50,0 

50: CIRCLE 12,1 

60 NEXT I 


80 FOR I= 15 TO 150 STEP 10 
90: CURSET 100,1,0 

100: CIRCLE 10,1 

110 NEXTI 

120 END 


This program uses the CURSET command to move the cursor to the position where the new circle 
is to be drawn. The first FOR—NEXT loop draws the horizontal circles, and the second, the 
vertical ones. The next two HIRES statements which we shall look at work in a slightly different 
way from the CURSET one. These two are CURMOV, and DRAW. In the CURSET command the 
screen position is given as coordinates in terms of the whole screen. They are said to be absolute 
coordinates. The remaining HIRES statements which move the cursor about are relative. They 
give the cursor’s new position in terms of its current position. The final position will be obtained 
by adding the relative coordinates given in the statement to the cursor’s current absolute position. 
The format for CURMOV is: 


CURMOV X,Y,C 


where X and Y are the distances which the cursor is to be moved horizontally and vertically res- 
pectively. The final parameter, C, is the screen display code, and operates in the same way as with 
the CURSET command. 

Thus, if the cursor starts at screen position 10,10, and is moved by a CURMOV statement, 
CURMOV 20,10,1, it will finish at position 30,20. A statement of CURMOV —5.15, performed 
now, will move the cursor to screen position 25,35. 

The second statement which we shall examine here is the DRAW statement. This, again, uses 
relative coordinates to give the cursor’s final position. It does, however, DRAW a continuous 
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straight line from the cursor’s starting position to its final one. That is, though, if the display 
code is not set to three or zero. The format for the DRAW command is: 


DRAW X,Y,C 


This command can be used to make DRAWing a box round the screen very easy. 


10 REM Box Draw. 
20 HIRES 

30 DRAW 239,0,1 
40 DRAW 0,199,1 
50 DRAW —239,0,1 
60 DRAW —199,0,1 


These lines can be broken up into dotted lines by means of the PATTERN command. This works 

in a similar way to the HIRES graphics itself. A one in the number given after the statement 

produces a dot, and a zero not. The PATTERN is set by the binary representation of this number. 
A value of 85 will give a sequence of “‘ — — — —”. The format is- 


PATTERN N_ where N is the decimal number whose binary representation gives the 
required pattern. 


Try this program. 


10 REM Patterns. 

20 HIRES 

30 FOR I=0 TO 255 

40: CURSET 50,50,0 
50: DRAW 50,0,1 


60: DRAW 0,50,1 
70: DRAW —S0,0,1 
80: DRAW 0,—50,1 


90: WAIT 200 
100 NEXT I 
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The last part of this chapter is dedicated to a picture-drawing program. This program allows 
the user to draw a picture on the HIRES screen by using the cursor direction keys. These keys 
will move a small cursor about the screen in the directions given on the keys. Thus, the cursor up 


key moves the cursor up, and the cursor down key will move it down. 


The space bar toggles the draw mode on and off. The first press will turn the draw mode 
off, leaving the cursor visible and free to move, but not leaving a trail as it goes. After the second 
press, the cursor will leave a trail as it goes. The program will also allow pictures drawn on the 
screen to be CSAVEd to tape, and CLOADed back again. A series of pictures can, therefore, be 


built up to make a cartoon — although it will be a very slow one! 


The colour of the cursor can be changed to be either background or foreground using the B 


and F keys. B will set the colour to background, and F to foreground. 
C will clear the screen so that another picture can be drawn. 
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Introduction 
In this chapter we shall look at subroutines and their uses. We’ll start by looking at the circum- 
stances under which they can profitably be used, and finish with some useful subroutines which 
can be included in your programs. 

First, let’s see what subroutines are. 


Subroutines 

Any long program is likely to have to perform similar operations in different places within the 
program. For example, a program may need to give screen displays which, although the format is 
the same whenever needed, must display different data. A subroutine is simply a series of program 
lines which perform this operation. Whenever the operation is needed, the subroutine can be 
called, the required operation performed, and the program continued from after where the screen 
display is needed. 

The subroutine, GOSUB, statement is used to achieve this. Its format is. 


GOSUB < line number > 


When a GOSUB statement is encountered, the ORIC will RUN the lines beginning at the line 
number given until it reaches a RETURN statement. RETURN tells the computer that it has 
now reached the end of the subroutine, and must RETURN to the main part of the program. It 
will then continue from the program line after the one which called the subroutine. 

Let’s look at an example. 


10 FOR I=1 TO 10 
20: GOSUB 1000 
30 NEXT I 

40 END 

1000 PRINT I 

1010 RETURN 


You can see from this short program that a subroutine looks no different from a normal program 
except that it finishes with the command RETURN. As mentioned above, this tells the ORIC that 
the subroutine is finished, and that it must RETURN to the main part of the program. It will then 
continue from the next program line after the one which called it. 


SUBROUTINES 131 


Important note. Never jump out of a subroutine without going through RETURN. The ORIC 
keeps track of the last subroutine called so that it knows which line to RETURN to after it 
has finished. If you simply jump back into the main program, and call other subroutines, 
sooner or later there will be a RETURN for which the ORIC has no GOSUB to RETURN 
from. This will result in a “7RETURN WITHOUT GOSUB ERROR’. 


The second subroutine example is more typical of the kind of situation in which subroutines 
can be used effectively, In this example we wish to calculate the result of multiplying two numbers 
together. The subroutine will multiply two numbers given to it in the variables ‘first’ and ‘second’, 
and produce the result in the variable ‘result’. The program is given below. 


10 REM Subroutine example 

20 FOR NUMBER = 0 TO 10 

30: FIRST = NUMBER 

40: SECOND = 5 

50: GOSUB 1000:2EM Mult nos. 
60: PRINT “ The result is ”: RESULT 
70 NEXT NUMBER 

1000 REM Multiplication subroutine. 
1010 RESULT = FIRST * SECOND 

1020 RETURN 


As you can see from the program example, the multiplication subroutine starts at line 1000. 
This is called from line 50 by the statement, GOSUB 1000. 

Using this subroutine we can, therefore, perform the multiplication anywhere in the program 
simply by setting up the numbers to be multiplied in their variables, calling the subroutine, and 
then using the result returned. The numbers given in ‘first’ and ‘second’ are called the subroutines 
parameters. 

Subroutines can be nested, i.e. be called from inside other subroutines, although the normal 
rules about nesting must be used. One subroutine called from within another must be completely 
inside the one calling it. When the RETURN at the end of this subroutine is reached, the program 
will simply continue from the point in the first subroutine where the second one was called. To 
make programs more readable, it is probably a good idea to put ‘level 1’ GOSUB’s (those called 
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only from the main body of the program) after the main program, ‘level 2” GOSUB’s (called from 
level 1) after all the level 1 GOSUB’s, and so on. 

There is, however, a limit to the number of subroutines which can be nested. The ORIC will 
allow 23 nested subroutines. For example, a program could be set up along the lines below. 


10 REPEAT 

20: GOSUB input command 

30: IF A$=“‘L” THEN GOSUB load 
40: IF A$=“S” THEN GOSUB save 
50: IF A$=“‘D” THEN GOSUB draw 
60: IF A$=“Q” THEN QUIT=TRUE 


500 UNTIL QUIT 
1000 REM Load subroutine. 
1010 GOSUB 5000:REM input string. 


1500 RETURN 
2000 REM Save subroutine. 
2010 GOSUB 5000:REM input string. 


2500 RETURN 

3000 REM Draw subroutine. 

3010 GOSUB 5000:REM input string. 
3020 <perform operation specified> 
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GOSUB 5000:REM input string. 
<perform operation specified> 


3500 RETURN 


5000 REM Routine to input string. 
5010 INPUT “ Value ”;A$ 
5020 RETURN 


We can see an important use for subroutines in this example program layout. There is a common 
subroutine called from both the ‘save’ and ‘load’ sections, and from the main body. This sub- 
routine will take a string INPUT from the keyboard, and RETURN it to the main body of the 
program. It is up to the main body to interpret the string which has been obtained. In this case 
the string INPUT will be returned in A$. A similar subroutine can be written to output a string to 
a screen display. The message to be PRINTed would now be passed to the subroutine using a 
variable such as A$. There could be included with this, data which tells the subroutine where to 
display the message, together with data giving the colour for the message etc. We will see examples 
for these subroutines in a moment. 

In some circumstances we need to choose one of a number of subroutines, depending on the 
value of a variable. We shall see this in ‘blackjack’, where we need to select a particular set of 
GOSUBs for each card pattern. To do this we can use the ON GOSUB statement, followed by a list 
of subroutine start line numbers. The actual subroutine chosen depends on the value of a variable. 
The format for this is shown below. 


ON < variable > GOSUB < line number > ,< line number >,... 


The value of the variable will decide which subroutine is called. If the variable has a value of 
one, the first subroutine will be called, if two, the second, and so on. The variable must be in the 
range 0 to 255. If it is outside this range, no error will be produced, but the program will continue 
from the next program line, for example: 
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10 FOR I= 1 TO5 

20: ON I GOSUB 100,200,300,400,500 
30 NEXTI 

40 END 

100 PRINT “SUBROUTINE 1” 
110 RETURN 

200 PRINT “SUBROUTINE 2” 
210 RETURN 

300 PRINT “SUBROUTINE 3” 
310 RETURN 

400 PRINT “SUBROUTINE 4” 
410 RETURN 

500 PRINT “SUBROUTINE 5” 
510 RETURN 


In cases where we need to be able to call more subroutines than can be written on one line, 
we can use the fact that the program will continue from the next program line by continuing the 
list on the next line. Though we must take the value of the variable into account. The program 
lines would be. 


100 ON N GOSUB 100,200,300,400,500 
110 ON (N—S5) GOSUB 600,700,800,900 . . etc. 
many variations are possible. 


Calling subroutines by name 
ORIC BASIC has the very useful facility of allowing subroutine start line numbers to be assigned 
to variables. The calling line thus becomes 


GOSUB < name >. 
This can make programs much more readable when they are first looked at, or looked at after- 
wards at a future time. The line numbers do, of course, have to be assigned to variables before the 
subroutine is called. Therefore these should be assigned at the beginning of a program. This is 
shown below. 
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50 INCHAR=1000 
60 OUTCHAR=2000 


200 GOSUB 


1000 REM Character reading subroutine. 
< lines for subroutine > 
1500 RETURN 


The names given must conform to the usual rules associated with variables. The ORIC will 
only look at the first two characters in the name, and any names chosen must not have any BASIC 
statement names hidden within them. 


Useful subroutines 
We shall now look at a couple of useful subroutines which can be incorporated into many differ- 
ent programs. The first will set up a menu of options on the screen, and return the option chosen 
to the main body of the program in the variable A. The subroutine will also check that the option 
chosen is valid. 

The second subroutine example will display a message on the screen at a given position. It will 
also turn the cursor off or on depending upon the value of the variable C. The message to be dis- 
played is given in string A$. 


The options subroutine 

This subroutine has been set up to allow the user to choose one of four options. These are, ‘save’, 
‘load’, ‘run’ and ‘quit’. The last, quit, option is often overlooked. The user should always be given 
the option of leaving a program, without having to resort to CTRL—C or RESET! Now the sub- 
routine: 
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1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


The number of options the user has to choose from can then be increased simply by adding more 
lines which display the extra options. The range check in line 1130 will, of course, have to be 


changed. 


CLS 
PRINT:PRINT 
PRINT “ Options available ” 
PRINT:PRINT 

PRINT “ Load.......... 
PRINT 

PRINT “ Save.......... 


PRINT “ Run 
PRINT 
PRINT “ Quit 
INPUT A$ 
A=VAL A$ 
IF A=0 OR A>4 THEN 1000 
RETURN 


The display subroutine 


This subroutine will display the message stored in A$ at the screen positions X,Y. The maximum 
length of this message is ten characters. If a message longer than this is given, the subroutine will 


ignore the extra characters. 


The cursor is controlled by the variable C. If C=0, the cursor will be turned off, and if C=1, 


the cursor will be turned on. 


1000 PLOT X.Y,“ ” 
1010 A$=LEFT$(A$,10) 

1020 PLOT X,Y,‘A$” 

1030 IF C=0 THEN C1=FALSE 
1040 IF C=1 THEN C1l=TRUE 


1050 IF C1 and C=0 THEN PRINT CHR$(17) 
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1060 IF NOT C1 AND C=1 THEN PRINT CHR$(17) 
1070 RETURN 


The first line of this subroutine is used to clear any existing message which might be displayed at 
the screen coordinates X,Y. The message to be displayed is then reduced to ten characters, if 
necessary, and displayed. A check is then made to see if the cursor needs toggling. The logical 
variable, Cl, is used to keep track of whether the cursor is on or off. C1 is TRUE if the cursor is 
visible, and FALSE if not. The two conditions tested are the ones possible which require the 
cursor to be toggled. 

This subroutine returns no data back to the main body of the program. 


The subroutines used by ‘blackjack’ 

The ‘blackjack program uses many subroutines to perform operations which need to be done 
many times. Examples of these are, calculating the value and suit of the card, displaying this card, 
and displaying the current score. We’ll now look at a couple of these in detail. First we'll see the 
subroutine which displays a card on the screen. This is called ‘cardshow’. 


The ‘cardshow’ subroutine 

The purpose of this subroutine is to display a specified card on the screen, at a specified position. 
To dot his it requires two pieces of information. First, it needs the card’s number, and second it 
must know where the card is to be displayed on the screen. 

The card’s number is given in terms of the whole pack. The cards which make up this pack 
are numbered from 0 to 51. The process used to calculate the value of a particular card is as 
follows. Since there are four suits of thirteen cards each, if we divide the card number by thirteen 
we will get a number in the range O—3, in other words, the suit which the card is in. Having got 
this we can then take thirteen times this number off the card number to give the card’s position 
within this suit. This will give exactly which card it is that is to be displayed. The variables used by 
‘cardshow’ for these values are. 

CD is the number of the card to be displayed. 
S is the number of the suit that this card is in. 
V is the value of the card within this suit. 


Therefore the first variable which must be set before using ‘cardshow’ will be CD, the card’s 
number. 
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Position of the card. In a normal game of Blackjack the maximum number of cards which need to 
be displayed will be five. For this reason we can split the screen up into six positions, numbering 
them, and keeping track of the next position to be used. Six positions are obtained by dividing the 
screen into two, horizontally, and then three, vertically. This position is given by the variable P1. 

Each displayed card is made up of a frame filled with characters representing the card’s suit 
and value. Although the cards are displayed in different places, the positions of the characters 
inside them are all the same relative to the top left-hand corner of the card. The method of display 
is not to PRINT the characters on the screen, but to POKE them straight into the screen memory 
area. This is a faster way to display characters on the screen. 

Using the screen position number given in P1, the ‘cardshow’ subroutine sets the memory 
address for the top left-hand corner for this position. The sequence is thus the same for each card, 
POKEing relative to the top left-hand corner position. 

The last part of the subroutine actually puts the card characters into the card. This is done in 
a way which reduces the number of program lines which need to be used. Instead of having a 
separate set of program lines for each different card, we build up the card’s pattern by addition. 
If you study a pack of cards, you will see that some cards can be made by combining others to- 
gether. For example, a three can be made from an ace and a two. The final part of the ‘cardshow’ 
subroutine takes the value of the card stored in the variable V, and uses it to calculate which cards 
it must add together to get the required display. This is done using further subroutines within 
‘cardshow’ using the ON GOSUB statement. 

After the subroutine chosen has been called the program continues by checking for royal 
cards. Since all royal cards carry a score of ten, and the others their face value, any royal cards 
are now set to tens. This allows the program to keep scores by simply adding the cards’ face values 
as they are displayed. 

The ON GOSUB line which displays the card patterns will look like the line below 


ON V GOSUB <Routine for ace>, <Routine for 2>,...... <Routine for queen>, 
<Routine for king> 


These subroutines will then build up the complete card display on the screen from the simple card 
‘building blocks’. 
Since the process is quite complicated, a flowchart is given in Fig. 21. 
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START 


CALCULATE 
CARD 
SUIT 


CALCULATE 
CARD 
VALUE 

WITHIN SUIT 


SET SUIT 
COLOUR & 
CARD 
POSITION 


DRAW 
CARD 
PATTERN 


SET CARD 
VALUE 
TO 10 


RETURN 


Fig. 21 — Flowchart for card display. 
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Method for building a card 
Study this with the LISTing given after this chapter for ‘blackjack’. 

The second subroutine, instead of taking data from the main program, returns data to it. This 
is the ‘ipace’ subroutine, and is used to ask the player for the value to be given to an ace. In black- 
jack this can be either 1 or 11. 

The subroutine must not only take the value in, but also check that no other number other 
than 1 or 11 is entered by the player. If it is, the subroutine must keep asking until a valid reply 
has been given. This is done using the INPUT statement. When a number is INPUTted it is first 
checked to make sure that it is a valid number. If it is not the cursor is moved back to the beginning 
of the line, and the question repeated until a correct reply is received. The value is returned to 
the main program using the variable V, the value of the current card. Therefore, as far as the main 
program is concerned, nothing has happened. The score is updated in the normal way by using the 
card’s value stored in this variable. 


Further notes 

We have seen how subroutines can be used to do specific jobs given carefully worked out informa- 
tion. In the case of ‘cardshow’, the amount of work done is quite amazing considering that it is 
only given two pieces of information by the main body of the program. However, much thought 
went into choosing what this information should be. First the program was broken down into a 
series of jobs that needed to be done. Then the data that these jobs need was worked out so that 
a first description of what subroutines would be needed could be written. This was done in terms 
of the data to be given to the subroutine when it is called, and the data the subroutine must return 
to the main body of the program. All of this was done before a single line of BASIC was written. 

It might seem best to jump straight in and start writing program lines, but in the long run it is 
much quicker to sit back and look at the problem in an overall way before starting to write BASIC. 
Using this approach of splitting programs up into self-contained subroutines can make writing new 
programs much quicker. After a while you will find that you have already written some sub- 
routines needed for a particular program already — for other programs. One point to remember 
though is to write down what the subroutine does together with the variables it needs to operate 
and the variables it changes while it operates. These are best included in the subroutine using REM 
statments at the beginning of the subroutine. 
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This appendix lists all the words recognized by ORIC BASIC in alphabetical order. 


ABS(X) 


CHAR X,N,C 


CHR$(X) 
CIRCLE R,C 


CLOAD “fn” 
CONT 


COS(X) 


Returns with ABSolute value of X. 

Performs logical AND operation. 

Returns the arctangent of X in radians. 

Transfers control to the machine code program starts at address X. 

Displays characters with ASCII code X at the current cursor position. N is the 
character set to be used, and C the screen code. 

Returns the character with ASCII code X. 

Draws a circle at the current cursor position with radius R. C is the screen code. 
Used in HIRES mode. j 

Sets all variables to zero, and strings to null. 

Clears screen display, and moves the cursor to the tope left corner. 

Loads program with name fn from tape. Can be used either ‘fast’ or ‘slow’. 
Resumes execution of a program halted by STOP or CTRL-C. 

Returns the COSINE of the angle X. X must be in radians. 


CURMOV X,Y,C Moves the cursor to position relative to the cursor’s present position. C is the 


CURSET X.Y,C 


CSAVE “fn” 


DATA 

DEEK (N) 
DEF FN (F) 
DEF USR=X 
DIM an(N) 
DOKE N,V 
DRAW X,Y,C 


END 
EXP (X) 
EXPLODE 


screen code. Used in HIRES mode. 

Moves cursor to absolute screen position X,Y. C is the screen code. Used in 
HIRES mode. 

Saves program currently in memory under the name fn. Can be used ‘fast’ or 
‘slow’. 

Stores numbers or strings to be read by READ. 

Returns address stored in memory. N is the address of the hi-byte stored. 
Defines the function F for use in a program. 

Defines start address of user-written machine code routine. 

Reserves space for array named ‘an’, with largest numbered entry N. 

Places address V in memory at address N. Stored in 6502 lo-byte, hi-byte format. 
Draws a line from the current cursor position to position X,Y relative to the 
cursor’s present position. C is the screen code. Used in HIRES mode. 

Defines the end of a program. This statement is optional. 

Returns the natural exponent of X. 

Produces predefined sound. 


FALSE 
FILLN,R,V 
FN F (X) 
FOR TO STEP 
FRE (0) 


GET A$ 


GOSUB N 


HIRES 
IF THEN ELSE 


INK N 
INPUT A/A$ 


INT (N) 
KEY$ 


LEFT$(A$,N) 
LEN (A$) 
LET 

LIST 

LN (X) 

LOG (X) 
LORES N 
MIDS(AS,N,L) 


MUSICC,O.N,V 
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Returns a value of 0. 

Fills N character cells by R rows with value V. 

Returns result of function F when variable used has a value X. 

Sets up program loop which performs an operation a given number of times. 
Returns number of bytes available to BASIC, or forces string storage rationaliza- 
tion. 

Returns single character pressed on the keyboard. If no key is being pressed 
when it is encountered, GET will wait until one is pressed. 

Causes execution of program lines starting at line N. The Number of the next 
line to be executed is retained. 

Causes uncondition jump to line number N. 

Assigns memory area used for the HIRES screen for BASIC usage. 

Returns the hexadecimal equivalent of decimal number X. 

Returns the decimal equivalent of hexadecimal number X. 

Sets the highest memory address available to BASIC. 

Sets the screen display to hi-resolution mode. 

Forces decision to be made. If the condition is met, the first option is taken, if 
not, the second is taken. ELSE is optional. 

Changes in the foreground colour to the one with code N. 

Waits for line to be input from the keyboard. Data is returned in the A/A$. 
Returns the largest less than N. 

Returns current key pressed. If no key is being pressed, a ‘null’ character is 
returned. 

Returns a character string made form the leftmost N characters of the string A$. 
Returns the number of characters in the string A$. 

Optional. Assigns value to a variable. 

Displays program lines. 

Returns the natural logarithm of X. 

Returns the logarithm to the base 10 of X. 

Switches to character set N. 

Returns a character string L characters long from the A$, starting at character 
number N. 

Produces note N, in octave O, from oscillator C, at volume V. 
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PLAY 
PLOT X.Y,A$ 
POINT (X.Y) 


POKE A,V 
POS 
PRINT A/“A” 


READ X 
RELEASE 


REM 
REPEAT 


RESTORE 
RETURN 


RIGHTS(A$,N) 
RND (N) 
RUN N 


Deletes current program from memory. 

Terminates the FOR—TO—STEP loop construct. 

Returns the complement of X. 

Performs the inclusive OR function. 

Choose the subroutines to be called depending on the value of a variable. 

Causes unconditional jump to a line number depending on the value of a variable. 
Changes the background colour to the one with code N. 

Sets pattern to be DRAWn to the binary representation of N. 

Returns the contents of address A. 

Returns the constant 3.14159265. 

Produces a predefined sound. 

Produces sound. (See Chapter 8.) 

Displays the string A$ on the lo-resolution screen at X,Y. 

Returns false if the dot at coordinate X,Y is background, true if foreground. 
Used in HIRES mode. 

Sets the contents of address A to value V. 

Returns the current horizontal cursor position on the lo-resolution screen. 
Displays either the value of the variable A on the screen, if not enclosed in 
quotes, or, if quotes are present, the contents of the quotes. 

Reads the next entry ina DATA statement, and assigns it to the variable X. 
Restores memory between addresses 38912 to 46080 to HIRES screen usage. 
This is the reverse of the GRAB command. 

Allows REMarks to be included in programs. Everything following REM in the 
current line will be ignored. 

Sets up a loop which will cause an operation to be repeated until a finish condi- 
tion is met. 

Resets the READ DATA pointer to the first DATA entry. 

Causes execution of a subroutine to finish, and the program to continue from 
the line number retained when the subroutine was called. 

Returns a string consisting of the rightmost N characters of the string A$. 
Returns a random number, X, in the range O<K1. 

If N is omitted, causes the execution of the program currently in memory. If 
N is included, causes execution of the program currently in memory from line N. 


SCRN (X,Y) 
SHOOT 
SIN (X) 
SOUND 
SPC (N) 
SQR (X) 
STOP 

STR$ (X) 
TAB (N) 


TAN (X) 
TEXT 
TROFF 
TRON 
TRUE 
UNTIL 
VAL (AS) 


WAIT N 
ZAP 
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Returns the ASCII code for the character at LORES coordinate X,Y. 

Produces a predefined sound. 

Returns the SINE of the angle X. X must be expressed in radians. 

Produces a pure frequency. (See Chapter 8.) 

Causes the cursor to move N characters from its current position. 

Returns the square root of X. 

Halts execution of a program. Program execution can be resumed using CONT. 
Returns the numeric expression, X, as a string. 

Moves the position to be PRINTed at N places from the left-hand edge of the 
screen. (This function is not implemented on some early machines.) 

Returns the TANGENT of the angle X. X must be expressed in radians. 

Switches display from hi-resolution to lo-resolution. Both screens are cleared. 
Turns off the trace mode. This command cannot be used in Direct mode. 

Turns on the trace mode. This command cannot be used in Direct mode. 
Returns a value of —1. 

Terminates the REPEAT loop construct. 

Returns the numeric value of A$ if this character is a number. If it is not, zero 
will be returned. 

Halts execution of the current program for N hundredths of a second. 

Produces a predefined sound. 
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This appendix lists all the ORIC BASIC error messages, together with possible reasons for them 
being displayed. All error messages will be given along with the line in which the line number of 
the line that produced them. 


CAN’T CONTUNUE An attempt has been made to CONTinue a program which has 
produced a ‘fatal’ error. That is, the program has either produced 
an error message already, or lines have been either added or de- 
leted since it was stopped with CTRL—C or STOP. The program 
must be restarted using RUN. 


DISP TYPE MISMATCH An attempt has been made to use HIRES statmeents in TEXT 
mode. 
DIVISION BY ZERO Self-explanatory. An attempt has been made to divide by zero. 


This could be as a result of a variable becoming less than 2.9 
E—39 earlier in the program. 
FORMULA TO COMPLEX More than two IF—THEN statements have been used on the same 


line. 
ILLEGAL DIRECT The command being attempted cannot be used in Direct mode. 
ILLEGAL QUANTITY The number given to a statement is out of the valid range for that 
statement. 
NEXT WITHOUT FOR A NEXT statment has been encountered without an associated 


FOR statement. Alternatively, the variable in a NEXT statement 
did not correspond to the variable in a FOR statement which was 
still in effect. 

OUT OF DATA A READ statement was executed, but all the DATA statmeents 
have already been READ. There is either not enough DATA, or 
READ is trying to READ too much. 

OUT OF MEMORY There is no memory available for program use. This could be 
because a very large array has been dimensioned. FOR—NEXT 
loops have been nested more than 16 levels deep, or too many 
subroutines have been nexted. 

HIMEM could have been set too low. 

OVERFLOW A number greater than 1.7 E38 has been produced as the result 

of a calculation. 


REDIM’D ARRAY 


RETURN WITHOUT GOSUB 


STRING TOO LONG 


BAD SUBSCRIPT 


SYNTAX ERROR 


TYPE MISMATCH 


UNDEF’D STATEMENT 


UNDEF’D FUNCTION 


REDO FROM START 


BAD UNTIL 
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An array has been DIMensioned twice. This can occur as a result 
of DIMensioning by default at first and then DIMensioning later. 
ORIC BASIC may be regarding two array names as one since it 
only looks at the first two characters in the name. 

A RETURN statmenent has been encountered without a corres- 
ponding GOSUB being executed. 

An attempt has been made to assign more than 255 characters 
to a string variable. 

An attempt has been made to reference an array alement outside 
the size. 

The line contains a typing error, or a bracket or a quote is missing. 
An attempt has been made to assign a string to a numeric variable, 
or an attempt has been made to assign a numeric value to a string 
variable. 

An attempt has been made to execute a non-existent line. This 
can be due to GOTO, GOSUB, THEN, or ELSE trying to refer- 
ence a non-existent line. 

An attempt has been made to use a function which has not been 
defined. 

An attempt has been made to INPUT a string into a numeric 
variable. 

An UNTIL has been encountered without an associated REPEAT. 
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Code Character Code Character 
32 Space 719 O 
33 ! 80 P 
34 st 81 Q 
35 # 82 R 
36 $ 83 S 
37 % 84 T 
38 & 85 U 
39 : 86 Vv 
40 ( 87 WwW 
41 ) 88 X 
42 + 89 y; 
43 + 90 Z 
44 ; 91 [ 
45 = 92 \ 
46 . 93 ] 
47 / 94 t 
48 0 95 £ 
49 1 96 © 
50 2 97 a 
51 3 98 b 
52 4 99 c 
53 5 100 d 
54 6 101 e 
55 7 102 f 
56 8 103 g 
57 9 104 h 
58 ; 105 i 
59 ; 106 j 
60 < 107 k 


ZZrAaeH- TO MMII O~V i 


Code 


108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 


Character 


Wor ONSN KX Ee Scr wragsvoes ser 
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ABS(_ , 82, 150 
Address, 38 
AND, 58, 150 
Arrays, 66-74 
ASC(, 59, 150 
ASCII, 59, 160 
AUTO, 37 


Ball bounce program, 115 
Binary, 37-38 


Calculator, 15 
Cassette, 33-39 
CLOAD, 36, 150 
CSAVE, 35, 150 
Character makeup, 110, 112 
CHR§(, 59, 150 
CIRCLE, 122, 150 
Colours, 13 
Conditions, 54-58 
COS( , 98, 150 
CLS, 13, 150 
CTRL key, 24, 25-27 
CURMOV, 123, 150 
CURSET, 122, 150 


DATA, 75-76, 150 
DEF FN, 93, 150 

DEL key, 23 

Dice game, 29-31, 50 
DIM, 67, 150 

Direct mode, 18 
DRAW, 124, 150 

Draw program, 125-128 


ELSE, 54, 150 
Enter, 13 
Envelope, 103 
Error messages, 154 
EXPLODE, 14, 150 


Flowchart, 29 
FOR-NEXT, 42-46, 151 

Flowchart, 43 

Loop count, 44 

Step size, 44 

When to use, 49 
FRE(0), 71, 151 
Functions, 92 


GET, 31 
GOSUB, 130, 151 
Graphics, 110-127 


HIRES, 121, 151 
Hires graphics, 121-127 


IF-THEN-ELSE, 54, 151 
Flowchart, 55 

INK, 13, 151 

INPUT, 22, 151 

INT(, 27, 81, 151 

Integers, 16, 81 

Inverse trig functions, 92 


KEY$, 48, 151 


LEFT$( , 62, 151 
LEN(, 61, 151 


index 


LIST, 19, 151 
Logarithms, 82-84 
Base 10, 82 
Base e, 83 
Conversion of bases, 84 
Logic, 56-58 
Loops, 42-51 
LORES, 110-120 


Memory, 70 
MID§( , 62, 151 
MUSIC, 100, 151 


NEW, 19, 151 
NEXT, 42, 151 
Noise, 97 
NOT, 57, 151 


ON GOSUB, 133, 152 
ON GOTO, 152 
Oscillators, 99 

OR, 57, 152 


PAPER, 13, 152 
PEEK, 38, 152 
PI, 85, 152 
PING, 14, 152 
PLAY, 102, 152 
PLOT, 114, 152 
POKE, 38, 152 
PRINT, 12, 152 
Programs 
Editting, 18, 23-26 
Entering, 16 
Removing, 19 


164 INDEX 


Radians, 85 VAL, 61, 153 
READ, 75, 152 Variables, 15, 16 
Real numbers, 16, 80 Integer, 16 
REM, 51, 152 Real, 16 
REPEAT-UNTIL, 46-51 String, 16, 60-64 
Flowchart, 47 
When to use, 49 WAIT, 28, 153 
RESTORE, 75, 152 
RETURN, 130, 152 ZAP, 14, 153 


Return key, 13 
RIGHTS$( , 63, 152 
RND(, 27, 152 
RUN, 17, 152 


Scientific notation, 78 

Screen coordinates 
LORES, 113 
HIRES, 121 

SHOOT, 14, 153 

Shuffle, 74 

SIN(, 88, 153 

Sorts, 72-74 

Sound, 96-107 

SOUND, 97, 153 

SQR(, 80, 153 

Squares, 80 

Square roots, 80 

Strings, 16, 58-64 

Subroutines, 130-139 
examples, 135-140 
used by Blackjack, 137 

Synth program, 101 


TAN(, 87, 153 

Tennis game program, 115 
THEN, 54, 153 
Trigonometry, 87-91 
Tunes, 107 

Tuning, 100 

TV, 12 


UNTIL, 46, 153 
User defined characters, 116-120 
Program, 118 
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MASTERING THE VIC-20 

A. J. JONES, Department of Electrical Engineering and Electronics, Brune! University, 
E. A. COLEY, Sales Consultant, Maystar Microcomputers Limited, Wokingham, and 
D.G. J. COLE, Senior Engineer, British Aerospace, Bracknell 


A machine-specific introduction to microcomputers based on the V!C-20, designed to 
supplement the booklet provided with the machine. It offers a wealth of interesting programs 
which can be supplied on tape or disk, or entered by the reader. 


“This is the best book I’ve seen for the VIC-20 . . . should be on the bookshelves of all VIC owners”’ 
— Personal Computer News. 


MASTERING THE ZX SPECTRUM 

LAWRIE MOORE, Freelance Writer and Lecturer, formerly Head of Computing Services, 
Birkbeck College, University of London, and Visiting Lecturer, Queen Elizabeth College, 
University of London 


This book is about how to enjoy your Spectrum through learning programming and handling 
the machine: it dispels the mental block which sometimes occurs for beginners, that of grasping 
and understanding the building of programs. 


MASTERING THE ELECTRON 
SIMON and JOHN MATTHEWS, Department of Computer Science, University of Exeter 


Will answer many essential questions for newcomers to computers, requiring a mastery of 
microcomputers: not just to persuade the machine to do what it is asked, but to do so ina 
sensible and readable way. The language, graphics, sound, and other features of the Electron, 
are highlighted and covered in a clear concise manner. 


WINNING GAMES ON THE VIC-20 
TERRY BARRETT, Freelance Programmer, and A. J. JONES, Department of Electrical 
Engineering and Electronics, Brunel University 


This book is a collection of games which can be played out on the VIC-20 computer. After 
reading the machine user’s manual, the computer user should have no trouble in keying in and 
running the programs: the text is supplemented by a chapter on redefining graphic characters, 
containing detailed instructions on the character generator program CHARGEN., 


WINNING GAMES ON THE COMMODORE 64 
TERRY BARRETT, Freelance Programmer, and STEPHEN COLWILL, Head of Computer 
Studies, Sandhurst School, Surrey 


This book takes the reader from a simple understanding of BASIC and builds up in single 
stages the techniques of graphics programming on the Commodore 64. The CBM is a recent 
machine on which little other literature in the area of games programming exists. 


MASTERING THE COMMODORE 64 
A. J. JONES, Department of Electrical Engineering and Electronics, Brunel University, and 
G. CARPENTER, Racal Tacticom, Reading 


A description of the CBM 64 and how to use it. Includes complete description of every BASIC 
keyword, introduction to data handling techniques in BASIC, graphics and sound complete 
with demonstration and utility programs. Included in the utilities are: AUTODATA, a program 
to create DATA statements, and a complete package of machine code routines to save/load/ 
copy/swap a specified area of memory; a joystick handling routine, and a hi-resolution plotsub 
— all of which can be run from BASIC. 
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